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PRODUCT CODE: AC-S4358-MC 

PRODUCT NAME: CVMSABO 0-2 MEG MEM EXER 

PRODUCT DATE: DECEMBER 1985 

MAINTAINER: ESD DIAGNOSTIC ENGINEERING 
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REVISION HISTORY 


REVISION A: APRIL 1981 
REVISION B: DECEMBER 1985 
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V2.2 COMPATIBILITY 
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PROGRAM LISTING 


ae 


SEQ 0003 | 


1.2 


—— = tae et tt ——— aE SO ee 


GENERAL PROGRAM INFORMATION. 
PROGRAM PURPOSE (ABSTRACT) 


Tp oR an a a ILITY TO TEST MEMOk: FROM ADDRESS 
0 ADDRESS 17757777. IT DOES SO USING: 


$ IO OST Tea 

C. INS UCTION XECUTION IHR UOUT MEMORY. 
.3 INTENT OF irs a IS 10 TEST 
aetna "Sh ues Se BO I 
! ine fest IS, abs APSO N NOT TANTENDED 10 10 og 
ee ; 


3 HER TESTS TH 
LEMS THAT THIS rest IS UNABLE TO. 


Be Tat AS 


S_ COM 

SI-11 BUS _W 

m E TESTS RELATE 
L 

0 


AS_ C 
LSI-1 
HOUGH 
ETE FOR CERTAIN SYSTEMS. 
A TOTAL 100% 

DO I/0 MAY FIND MEMORY 
SYSTEM REQUIREMENTS 

A, HARDWARE REQUIREMENTS 


Lea ratae SI-11/ 3. Lor it’s. »LSI-11/73 BUS FAMILY PROCESSORS. 


NIMUM OF 16KW 


OPTIONAL rs i 
NY PARITY MEMORY CONTROL MODULE. 
KTF1l MEMORY MANAGEMENT . 


B. SOFTWARE REQUIREMENTS 


THE SPALLEST UNIT OF MEMORY THIS PROGRAM WIL 


L RECOG 
8 IF ANY ADDRESS IN A 8K BANK CAUSES A TIME OUT 
AP, THAT ENTIRE BANK OF MEMORY IS IGNORED BY THE 
PROGRAM. PROGRAM TESTS IN 8KW BANKS,UNLESS IT is THE LAST 
4KW BEFORE THE 1/0 PAGE OR LAST 6KW IF 3OKW SYSTEM. 


THE PROGRAM IS DESIGNED TO EXERCISE THE VECTOR PORTION OF 
MEMORY (L CATIONS 0-776) IN EXACTLY THE SAME MANNER AS 
T S Y. TO MAKE THIS POSSIBLE, WITHOUT 
REQUIRI action | MANAGEMENT NO SOPTUARE TRAPS aR USED 
IN S MEANS THAT Y MANAGEMENT 1S 
NOT AVA vib te oR mm DISABLED ( uip-l), IF E PROGRAM TS 
RELCCATE ° BANK 0 TION 0-776 Mee SELECTED 
FOR TFoAN UNEXPECTED HARDWARE TRAP BCCURS. THE 
RESULTS est, i BE UNPREDICTABLE. 


THE PROGRAM HAS THE PROPER INTERFACE CODE 70 ALLOW 
RUNNING UNDER THE AUTOMATED ‘4ANUFACTURING TEST LINE 
SYSTEM - ACT11 AND APT. 


— eee ee ee eee eee 


yan aaa 


SEQ 0004 


ee eee ee eee 


| Fi 


S 
Vit pp evil F giovil-Pk, MSVIL-ED, HSV11-LK, MSVi1-PF, 


e/t, MSVi1-S 
1.2.1.1 HARDWARE RESTRICTIONS 


IF bi HAS M yep seri) fen 18 3 MEMORIES WIT 


H 
Vii-P I TEs nn RECOMMENDED 
noVit pT fi 


: "SEI Wis-L 5 tt MODE 

Tf Is. rds POs on 10. Sti i a FROM THE “MSVI1-D" 

RECT MEMORY ¢ CIN. AND D FALSE Linea e N BOY FONALLY 

iN HSV 1 mt vay i WAVY Fue Hs MSV1i-S ARE SUBJECT 

10 THE aes tet ATIONS. IT te RECOMMMENDED THAT THESE 
ORTE MIXED WITH MSV11-D. 


1.3 RELATED DOCUMENTS AND STANDARDS 
. Q: POLL HAIN Hg - DOCUMENT NO. 175-003-009-01 
’ id tis SYSMAC PACKAGE - MAINDEC-11-DZQAC-C7- 
= aore ant RY re TEM MAINTENANCE MANU 
' THE APPLICABL HEMATICS 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
EFORE RUNNING WE Sarena try A CPU DIAGNOSTIC S 
ii VERT PY THE OF THE  PROCESSO 
INSTRUCTION ST. FOR LSI- i/23: KDB. DIAG 
FOR LSI-11/2 :CVKAA_ DIAG 


IF MEMORY MANAGEMENT IS TO BE USED, THEN i, silasa DIAGNOSTIC 
CUKDA_ SHOULD ALSO BE RUN BEFORE THIS PROGRAM 


D 


HOULD BE RUN 
R AND PDP-1i1 


1.5 ASSUMPTIONS 


yee PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU AND, IF 
U OPTI 


THE MEMORY MANAGEMENT OPTION. 


2.0 OPERATING INSTRUCTIONS 
2.1 LOADING AND STARTING PROCEDURES 
2.1.1 | LOAD THE PROGRAM USING XXDP OR ANY STANDARD ABSOLUTE LOADER. 
2.1.2 | STARTING ADDRESS 200: 
NORMAL PROGRAM EXECUTION. 


2.1.5 STARTING ADDRESS 204: 


1.2.1 | HARDWARE SUPPORTED 
THE FOLLOWING et er F UPPORTED BY THIS SOFTWARE: 
RESTART PROGRAM USING PREVIOUSLY SELECTED PARAMETERS. 
' 





SEQ 0005 


LE, 


2.2 SPECIAL ENVIRONMENTS 


IF THE PROGRAM IS RUN_IN AUTOMATIC MODE UNDER ACT1 
APT11 THE PROGRAM i DONE AFTER _THE FIRST PASS. A 
PR MP ; RELOCATE TO TEST THE LOWER 8K OF MEM 
AFTER T RST PASS. 


2.9 PROGRAM OPTIONS 


2.4 


THE POF TMARE satin REGISTER (LOC. 176) IS USED FOR A 
R Maes SWITCH SET war 

1 uae AN TYPE CTRL G (tG) TO ALLOW SWR CHANGES 

DURING PROGRAM EXECUTION. 





1 OR 
LSO, THE 
ORY, 


LL 


INITIAL 


NOT USED) 


SW15 = 1 OR UP.... HALT ON ERROR 

SW14 = 1 OR UP.... LOOP ON TEST 

SW13 = 1 OR UP.... INHIBIT ERROR TYPEQUT 

SWi2 = 1 OR UP.... INHIBIT MEMORY MANAGEMENT ( 
START ONLY) 

SW11 = 1 OR UP.... INHIBIT SUBTEST ITERATION ( 

SW10 = 1 OR UP.... RING BELL ON ERROR 

SW9 = 1 OR UP.... LOOP ON ERROR 

SWB = 1 OR UP.... LOOP ON TEST IN SWR<4:0> 

SW7 = 1 OR UP.... INHIBIT PROGRAM RELOCATION 

SW6 = 1 OR UP.... INHIBIT PARITY ERROR DETECTION 

SW = 1 OR UP.... INHIBIT EXERCISING VECTOR AREA 


(LOCATIONS 0-1000). 
EXECUTION TIMES 


MEM WORSE CASE RUN TIMES WITH MC: MEMORYS ARE 
A. FOR NON-PARITY MEMORY 

FULL PASS: < 5 MINUTES FOR 64KW 
30 MINUTES FOR 1280 KW 
B. FOR PARITY MEMORY 

FULL PASS: 5 MINUTES FOR 64KW 
20 MINUTES FOR 256KW 


117 MINUTES FOR 1280KW 


Srey TON TIME IS DEPENDENT ON TYPE OF MEMORY, AND AMOUNT OF 


———_— —— ee 





APT TIME IS SETUP FOR 256KW (APPROX. 20 MIN). 


gn MAKE CHANGES TO APT TIMES AS MEMORY 
INCREASES OR DECREASES IN SIZE. 


ERROR INFORMATION 


ERROR REPORTING 

THERE ARE A [OTA oN Ore aE THE TYPES OF ERROR REPORTS GENERATED 
BY THE P HE KEY COLUMN HEADING MNEMONICS ARE 
ESCRIBED ET Ou FBR R CLARITY, 


PC = PROGRAM pa OF ERROR DETECTION CODE. 
(V/PC=P/PC 


v/PC = V VERTU PROGRAM pouNTeR THIS IS_ WHERE THE ERROR 
TION CODE CAN BE FOUND IN THE PROGRAM LISTING. 


P/PC = PHYSICAL PROGRAM COUNTER. THIS IS WHERE THE ERROR 
DETECTION CODE IS ACTUALLY LOCATED IN MEMORY. 


TRP/PC = 1) PROGRAM COUNTER OF THE CODE WHICH CAUSED A 


MA = MEMORY ADDRESS 

REG = = PARITY REGISTER ADDRESS. 
PS = PROCESSOR STATUS WORD. 
IUT = INSTRUCTION UNDER TEST. 
S/B = WHAT CONTENTS SHOULD BE. 
WAS = WHAT CONTENTS WAS. 


ERROR HALTS 


fh THE ‘HALT ON ERROR’ SWITCH Co) NOT SET THERE ARE 
VERAL PROGRAMMED ‘HALTS’ IN THE PROGRAM: 


A. IN TH CHROR TRAP oR RVICE ROUTINE FOR UNEXPECTED TRAPS 10 


VECT THIS ONE WILL 0 IF A 2ND TRAP 10 4 OCCURS 
Ber E THe ERROR REPORT FOR THE FIRST HAS HAD A CHANCE 10 
E PRINTED OUT. 

B. IN ite RELOCATION ng PL IF THE PROGRAM IS _ BEING 
ReROCh he ae TO_THE FIRST 8K OF MEMORY AND THE PROGRAM 
C NOT ABLE TO BE TRANSFERRED PROPERLY. 

C. IN THE CASE OF ERROR REPORTING AND THERE IS NO TERMINAL 
TO ALLOW THE INFORMATION TRANSFER. 





a 


SEQ 0007 | 


4.0 


5.0 


3.2 


ee — ee 


IN THE POWER FAIL ROUTINE IF THE POWER UP SEQUENCE WAS 
"STARTED BEF a! A's THE POWER DOWN SEQUENCE HAD A CHANCE 10 


c. We ey MAPPING ROUTINE OR ANY OF a, ee 
ONTROL ROUTINES, FAILURES TO FIND A MEANINGFUL 
PERFORMANCE AND PROGRESS REPORTS 

NOT APPLICABLE 


DEVICE INFORMATION TABLES 

A PICTURE VIEW OF A PARITY C 
A att SHOW BITCASSIGNMENTS. AN 
OVIDE A HANDY REFERENCE: 


MOS PARITY REGISTER 


ne 


15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 
BIT1S PARITY ERROR 


BIT02 WRITE — WRONG 
PARITY oon PARITY 


Sook BARE PARITY aaah 

WHEN SET 

BITOO ACTION ENABLE, NO. NO 

ACTION WHEN CLEAR. TRAP 

TO VECTOR 114 WHEN SET. 

BIT ESS BIT 

OR RE SS TS 18-21 

LOCATES PARITY E 

SEGMENT OF MEMORY. 

BIT 14... ALWAYS 
128KW. IN 

AND IS THE EXTEN 
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SEQ 0008 


~ 





ae eee : 5 


6.0 SUB-TEST SUMMARIES SEQ 0009 | 
6.1 SECTION 1: ADDRESS TESTS. 
THESE TESTS VERIFY THE UNIQUENESS OF EVERY MEMORY ADDRESS. 
TEST 1. WATTES AND READS THE VALUE OF EACH MEMORY WORD 
RESS INTO THAT MEMORY LOCATION. AFTER ALL MEMORY HAS BEEN 
ITTEN, ALL LOCATIONS ARE CHECKED AGAIN. 
' 
| 


ie . WRITES THE BYTE VALUE OF EACH ADDRESS INTO THAT BYTE 
LOCATION AND CHECKS IT. 


TEST 3 WRITES THE COMPLEMENT OF EACH WORD ADDRESS INTO THAT 
LOCATION AND CHECKS IT. 

TEST 4 WRITES THE 8K BANK NUMBER INTO EACH BYTE OF THAT BANK 
AND CHECKS IT. 


pear 2. RITES THE C ya : THE BANK NUMBER INTO EACH 
YTE OF THAT BANK AND CHECKS 


6.2 SECTION 2: WORST CASE NOISE TESTS. 


THESE ARE INTENDED TO APPLY MAXIHUM STRESS TO THE VARIOUS 
TYPES OF PDP-11 HOS MEMORIES. 


SEE i + TEST 7 ARE an pathy PATTERN’ aay THE AND SXOPE ON 10 

ie ioe aT bertIN (Dh ATO) IN TEST 6 OR THe READ tne 
ATION Cons 20. SH D BE CH mY A DIFFERENT 
NGLE WORD DATA PATTERN IS CONSI 


lek RHE MPLS Ets HUD enh 


ies ij we re MEMORY WITH 1‘S IN EVERY BIT AND THEN 
PPLES” A “O" THROUGH IT. 


Teele roe WRITES ALL MEMORY WITH 0'S IN EVERY BIT AND THEN 
“RIPPLES” A “1" THROUGH IT. 


pATT). IN 


3 WTTES ay ae PARITY IN EACH BYTE OF MEMORY AND 
CHECK THAT THE PARITY lee LOGIC WORKS. THIS TEST IS 


FOR NON-PARITY MEMO 
ile “RANDOM” PROGRAM CODE THROUGH MEMORY AND 


6.3 SECTION 3: INSTRUCTION EXECUTION TESTS. 


fee a OF TESTS PLACE INSTRUCTIONS IN THE MEMORY UNDER 
TES EXECUTES THE INSTRUCTIONS, AND FINALLY, CHECKS 








—_=— 


1 KY 


6.4 


6.5 


6.5.1 


——- 


——— eee oe 








THAT THEY EXECUTED CORRECTLY. 


AEST J EXECUTES AN_INSTRUCTION WHICH DOES A DATI AND A DATO 
ON THE MEMORY UNDER TEST. 


TEsT.16 EXECUTES AN INSTRUCTION WHICH DOES A DATI AND A 


fort 17 CUTTS BY * aie WHICH DOES A DATI AND A 
ior 20 EXECUTES AN INSTRUCTION WHICH DOES A DATIO AND A 
iesT oh EXECUTES AN INSTRUCTION WHICH DOES A DATIO AND A 
DATOB ON THE LOW BYTE. 
ieer ., EXECUTES AN_INSTRUCTION WHICH DOES A DATIO AND A 
DATOB ON THE HIGH BYTE. 


SECTION 4: MOS TESTS 
Seyret te A PALeern OF pall THROUGH MEMORY, THEN 


IT ADDRESS! COMPLIMENTS THE NEW 
as RESSING HPC RENTS THE THIRD PATTERN 
WARD BARD, LY COMPLIMENTS THIS NEW AB 


aN NRODRESSING DOWNWARD. 


HECKERBOARD THROUGH MEMORY THEN STALLS 


TEST 24-25 WRIT 
F N VERIFIES NO DATA HAS CHANGED. 


2 SECONDS A 
SPECIAL TOGGLE IN TESTS 


TOGGLE-IN-PROGRAM #1 


fac S A TOGG EIN MEHOR HEHOR ADDRES S TEST. THIS Test 
NAN, A CIION FATL E IS USPECTED 
iPS 8 Fite PROGRAM WRITES THE 
VAL ADDR ESS IN i SELF ati WITH THE LOWER 
LIM 0) ae CONTINU NG TO THE UPPER LIMIT. AFTER ALL ADDRESSES 
HAV N WRITTEN EACH ESS IS CHECKED FOR THE CORRECT 
CONT N if STARTING WITH THE UPPER LIMIT AND CONTINUING TO THE 
t MIT. 
LOCATION CONTENTS MNEMONIC COMMENT 
10 612700 MOV #200,RO iGET FIRST ADDRESS 
12 0200 :10 TEST 
“(EXAMPLE START ADDRESS) 
14 010001 MOV RO,R1 — ;SAVE IN Ri 
16 003 1$: CMP RO. a#SWR : CHECK UPPER LIMIT 
0 0176 -CIN SOFTWARE SWITCH REGISTER) 
e3 001403 BEQ 28 ;BRANCH IF AT UPPER LIMIT 
2 010010 HOV RO.(RO) sLOAD VALUE INTO ADDRESS 
¢ 005720 TST (RO)+ ;=STEP TO NEXT ADDRESS 
000772 1$ :LOOP UNTIL DONE 
32 01 2$: MOV RO.R4 =; SAVE UPPER LIMIT 
020001 3$: CMP RO.R1  ;CHECK IF AT LOWER LIMIT 


————_- eww eee ee 








SEQ 0010 ; 


7.0 





* 36 001767 EQ 1$ ;BRANCH IF DONE 
rt yt 4 aaa ; CHECK ae ee 
44 900000 HALT ‘ERR OR 
46 000772 BR 3$ ;LOOP BACK 


TOGGLE-IN-PROGRAM #2 
LE-IN-PR ite A TOGGLE IN PROGRAM 10 BE USED WITH 
ree aere atte Pes A i 
: iW ty ; corr THE U UPPER LIMIT AND CONTINUING 10 THE 


Te CHECKED FOR THE CORRECT CONTENTS SETARTING. ETH THE 


tah ESS_ AND THE UPPER LIMIT. 
THE FOLLOWING PATCHES ai THE PROGRAM ABOVE. 


THIS IS THE PATCH TO TOGGLE-IN-PROGRAM #1: 


LOCATION CONTENTS MNEMONIC COMMENT 
6 1404 BEQ 4$ ;BRANCH TO PROGRAM #2 
THESE ARE THE ADDITIONS TO TOGGLE-IN-PROGRAM #1: 
LOCATION CONTENTS MNEMONIC COMMENT 
0 610402 4$: HOV Ra Re ;GET UPPER LIMIT 
; 5142 =5$: COM =(Re : COMPLE NT A RESS 
020 : R2,Ri § ;CHECK IF AT LIMIT 
: 00 BNE § ‘LOOP UNTIL D 
FE 02 204 6$: 2,R4 ; CK If AT UPPER LIMIT 
62 001755 BEQ 1§ :GO TO AM 1 IF DONE 
64 of 203 HOY .R3. ss GET_VALUE OF ADDRESS 
66 03 con :COMPLEMENT VAL 
7 020322 P R3,(R2)+ ; CHECK ESS 
le 001772 BEQ IF OK 
7 ai HALT ; 
16 000770 BR 6$ GO CHECK NEXT ADDRESS 


PROGRAM LISTING 
TTACHED 


ee a 
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SEQ 4 


} 
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SEQ 0012 
CVS 0-2 MEGGWORD MEMORY EXERCISER, 16K VER 
YR 8 
a 9 AT PMEN CORP. 
ASS. 017 
sPROGRAN BY SAM/BARRY BILL 
is THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
‘#PACKAGE (MAINDEC-11-DZ@QAC-C7), JUL, 1982. 
637° SBTTL OPERATIONAL SWITCH SETTINGS 
is SWITCH USE 
— 15 HALT ON ERRO R 
3% 14 OP ON TES 
‘a 13 NH IBIT ine TYPEOUTS 
a 12 INH IT KT ML (ATS T START TIME ONLY) 
‘a ti IT ITERATIONS 
a 10 BELLOW ERROR 
ve 9 N ER ROR 
sk s tS N TEST IN SWR<4:0> 
638 sk 7 NHIBIT PROGRAM RELOCATION 
& 6 NHIBIT PARITY ERROR DETECTION 
_ ‘Serr pal nimi NHIBIT EXERCISING VECTOR AREA. 
poe jaiMtTial ia iF ros STACK POINTER ##* 1100 ##« 
04000 R- : BAST F ERROR CALL 
0004 aa PASTE DEFINGY TON OF SCOPE FACE 
nines sin tiens DEFINITIONS ZoNTA ion 
Soot LF= 12 ie FOR it aaa 
000015 CR= 1 ARR AGE RE RETURN 
0002 LF= 200 ARRIAGE RETURN-LINE FEED 
177716 S= 177776 ES OR STATUS WORD 
eee CPRLMT= 197774 K LIMIT REGIST 
177772 PIRQ= 1777 = ARUP REQUEST REGISTER 
177970 17 
77570 177 
000000 
000001 


72 
DSWR= 1310 BARE “SICH REGISTE 
1SP= 177570 WARE DISPL AY R AStER, 
jxGENERAL PURPOSE wcrstii' ea Rectstes 
000 RI #1 RENERAL RE ISTER 
000 RS; 88 : SENN REGIST 
000004 R4= 64 h NERAL REGISTER 
000005 R5= “5 NERAL REGISTER 
000006 R6= %6 NERAL QF ree 
ty oO Rerboha' 
380089 Bt “7 Hi UNTER 
- jxPRIORITY LEVEL DEFINITIONS ane 
iii ts PRi= 40 OR ORT TY 8 1 
000100 PR2= 160 PRIORITY LEVEL 2 
000140 PR3= 140 -:PRIORITY LEVEL 3 
A 


‘i —_ —- 
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AS FINITI SEQ 0013 


IC 0€ S 


000200 PR4= 200 ;;PRIORITY LEVEL 4 
40 PR5= 240 ;;PRIORITY LEVEL 5 
00 PR6= : ;PRIORITY LEVEL 6 
000340 PR7= 340 - PRIORITY LEVEL 7 
-*"SWITCH REGISTER” SWITCH DEFINITIONS 
00000 gwi5= 100000 
930000 Suis: 20000 
010000 SWi2= 10000 
SWil= 4000 
2000 SWi0= 2000 
001000 SWO9= 1000 
00 SWO8= 400 
200 SWO7= 200 
000100 SW06= 100 
0 SWwOS= 40 
800910 auos- 10 
$008 SW02= 4 
000002 SWOl= 2 
0 SW00= 
40 SW9= WO9 
SWa= W 


oo 
Mm 


Ssssssss 
SSsss 
“BEesssss 
eee 
wmMm 
g 


SSSSSS 


Hecere 


=  8H00 
"eDATA BIT DEFINITIONS (BITOO TO BIT15) 
00000 ee aT p50 
2 He 
a {i2- {9000 
3 tid: 2000 
19 11592 1000 
1106-490 
di t1o- 100 
$90080 HTose 40 
T04= 20 
T03= 10 
02 toe 3 
09 100 
19=  BIT09 
18= BIT08 
00 T17=  BIT07 
00 BIT6= BIT06 
0 115+ 1105 
20 14 BIT04 
0 T13=  BIT03 
T12=  BITO2 
| 000002 ITi-  BITO! 
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= - 


SEF 
rr 


CASI Se Be Se Be See 
AAV OOD SDUE UI 


my Se 


oO 
Uv 


000001 


mas 


ee ppp pe 


[iok-ininindinind chelniniadeieing ‘baddest 

Srorrmrrononn =nprorrnrrnn 
AAACN AANA AANANANA 

SREVOREROS AEVORELS 


000006 


000000 





BITO= 


BIT0O 

-*BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC = 4 >; TIME OUT AND OTHER ERRORS 

VEC= 10 : ;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 :3"T" BIT 
TRIVEC= 14 ss TRACE TRAP 
BPTVEC= 14 : ;BREAKPOINT TRAP (BPT) 
IOTVEC= 20 ss ENPUT/OUTPUT TRAP (IOT) ##SCOPEss 
PWRVEC= 24 ; ;POWER FAIL 

TVEC= 30 s EMULATOR TRAP (EMT) #*ERROR«« 
RAPVEC=34 -: "TRAP" TRAP 
TKVEC= :;TTY KEYBOARD VECTOR 
TPVEC= 64 -; TTY PRINTER VECTOR 
PIRQVEC=240 : PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
ian 1 VECTOR ADDRESS 


= 290 
jan satus REGISTER ADDRESSES 


177572 
a CE 
ees: tye 
"#KERNEL "I" PAGE DESCRIPTOR REGISTERS 
KTPDRO= 172300 
KIPDRI= 172302 
KIPDRG= 172504 
KIPDRS= 172306 
KTPDRA= 172510 
KIPDRS= 179312 
KIDDRYs 175316 
KERNEL Mf PAGE ADDRESS REGISTERS 
kTPARO= 172340 
KIPARL= 172542 
KIPARG= 172544 
KIPARS= 179846 
KTPARA= 1753 
KIPARS= 172352 
ue 
WP eo “CODE FOR UPWARDS MAP IN MEM MGMT POR'S 
RW = 6 ‘KODE FOR READ/WRITE IN MEM MGMT PDR’S 
jt PARITY MEMORY DEFINITIONS. 
PARVEC=114 ‘ DARTTY 
; MISCELLANEOUS ASSIGNMENTS 
hasKak= 17777 :MASK FO 
MASKBK= 37777 ‘MASK FO 
MET: 7 ‘MOVE FR 


-SBTTL TRAP CATCHER 


V———— eee —-————a 
—_—_—— TO 


SEQ 0014 


| 
| 
| 
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776 CONTAIN A ".+2,HALT" 
TCH ILLEGAL TRAPS 


soft UNED Teoh FROM 4 - 
TAINS 0 TO CATCH IMP OPERLY LOA LOADED VECTORS 


$5 A - 
000174 
000174 000000 DISPREG: 0 ;;SOFTWARE DISPLAY RED IST ER 
7 0000 SWREG: “WORD 0 ;;SOFTWARE SWITCH REGISTE 
— = Sail STARTING 


ADDRESS(ES) 
OSes peed PL 003744 JMP aeSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
628 04 000167 000070 JMP RESTAR ;RESTART ADDRESS, USING PREVIOUS PARAMETERS. 


660 000004 ERRVE 
nb 023430 WORD  ERRTRP 
Ss S888. 850808 a 
664 -SBTTL ACT11 HOOKS 
AEKKEKAKASALERAELAAALREARASRAREAAKAAERARAKAAREARAKAARAKALKASALKALKEKAELEKSE 
{AOOKS "REQUIRED BY ACT 
900010 y sSAVE PC 
000046 O19 128 *ENDAD ;;1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E0P 
000052 040000 -WORD  BIT14 ii2 SET LOC.52 TO BIT14 
- 000010 .=$SVPC ESTORE PC 


SEQ 0015 


4 
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CT11 HOOKS SEQ 0016 
666 000100 .=100 
667 000100 O0C104 000340 000002 -:WORD 104,340,2 sIF BEVENT IS ENABLED 
668 SIGNORE ITS INTERRUPT,DO RTI 
53 000300 .=300 
67 REKERE AREER AAAERAREARAAEEEEEEREREREA EA EEE EE EEES EEE EERE EE EE ERS 
67 4 THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
67 THEY CAN BE PROTECTED BY SELECTING SWOS (SEE DOCUMENT FOR USE OF SWOS). 
ore staat eat wteggeeeetteeeee cates erases INDICATE RESTART 
518 ft oe a0) gh REST1 :GO RESTORE PROGRAM BEFORE RESTARTING. 
677 000 0107 RESTOR: MOV pC -PUT DATA INTO FLAG FOR RESTORE. 
678 000 06 012706 001070 REST1: MOV “(MTAG, SP “SET UP THE STACK POINTER. 
7 16 000216 TST PRGMAP :CHECK IF THE MEMORY HAS BEEN MAPPED. 
680 000 0010 g BNE REST -BR IF MEMORY MAPPED. 
00016 003434 JMP STARTA iGO START. IF NOT MAPPED 
68 000 3 005 6 000206 REST2: TST MMAVA sCHECK TF NEN MGMT AVAILABLE. 
0014 BEQ 10$ :BR MT. 
684 00035 050731 000001 177572 BIT #BIT0, a#SRO CHE TP HEP MGMT ACTIVE. 
685 000 1087 NE 2$ -BR IF MEM MGMT ALREADY SET UP. 
686 42 012700 172300 MOV 4KIPDRO, RO -POINT TO FIRST MEM MGMT DDATA REG. 
O12701 000010 MOV . :SET UP COUNTER, 
6 8 0 ote72 077406 1$: MOV #077406,(RO)+  ;MAP FIRST 28K i-FOR-1 
689 00 00 301 DEC Ri sCOUNT REGISTERS. 
690 00 001374 NE 1$ -BR IF MORE REG. 
691 000362 012700 172340 MOV ¥KTPARO, RO sPOINT TO FIRST MEM MGMT ADDRESS REG 
692 00 66 20 CLR (RO)+ :PARO MAPPED INTO BANK 
693 000370 012720 000200 MOV #900, (RO)+  ;PAR1 MAPPED INTO BANK 
694 000374 020 CLR RO)+ :PAR2 CLEARED 
695 060 46 00 $0 CLR RO)+ :PARS CLEARED 
696 0400 005020 CLR RO)+ -PAR4 CLEARED 
697 000402 005020 CLR RO)+ -PARS CLEARED 
698 000404 005020 CLR fRO)+ :PAR6 CLEARED 
69 000406 012720 177600 MOV #177600, (RO :PAR7 MAPPED INTO LAST BANK. 
00 000412 ote? 7 000001 177572 MOV 4BTTO, sENABLE HEH i. 
7 0 00 2$: CLR RO -INIT TEMP PAR REG. 
70 0004 016701 000106 MOV PRGMAP, RI ‘GET THE PROGRAM MAP...LO 64K. 
70% 0004 620 3$: ASR Ri -SHIFT THE MAP POINTER... 
104 000430 10340 BCS 4$ :BR WHEN FIRST 8K BANK FOUND. 
705 000432 062700 000400 ADD #400, RO “UPDATE TMP PAR TO NEXT 8K BANK. 
106 000456 000773 BR 3$ - :NEXT 8K BANK 
707 000440 01008, 172340 4$: MOV RO S#KIPARO ;PUT TEMP PAR INTO FIRST PAR. 
108 oooa4s 137 000450 JMP a#5s JUMP INTO PROGRAM IF NOT THERE ALREADY 
7 000450 062 000200 S$: ADD #200, RO ;KEEP UPDATING TEMP P 
{10 0004 01003 172342 MOV RO S#KIPARL ;SET UP SECOND BROGRAN BANK POINTER. 
000460 000410 BR 20$ .BR TO RELOCATE SECTION. 
712 000462 016700 000044 10$: MOV RELOCF. RO “GET RELOCATION FACTOR 
71 000466 062700 001070 ADD #$CMTAG, RO :SET UP STACK POINTER. 
14 000472 010006 MOV RO S -SET STACK TO RELOCATE PROGRAM. 
715 000474 062700 177412 ADD Obs - $CMTAG,RO ;ADJUST RO TO RELOCATED "20$" ADDRESS. 
it 000500 000110 JMP (RO) ‘GO TO "20$" (RELOCATED). 
717 000502 022767 000001 000024 203: (CMP 44 PRGMAP iCHECK IF PROGRAM IS IN 8K BANK 0 
118 000510 00140 BEQ 21$ -BR IF IN 8K BANK 0. 
I 00 12 004767 014546 JSR pc RELO ;RELOCATE THE PROGRAM BACK TO BANK 0. 
720 } 005067 000436 21$: LR STIMES “CLEAN UP BEFORE STARTING. 
721 000522 105067 000344 CLRB = $TSTNM 
722 000526 000167 006254 JMP START1 ‘RESTART WITH PREVIOUSLY SELECTED PARAMETERS. 
| 
| 








—_ LL LLL LL LL LLL LLL LLL LLL LLL LLL LLL LLL LLL LL ALLL LL LLLLLLL LL 
—— cc. an ee, ei ——— ee me Eee eee Ee ] 
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CT11 HOOKS SEQ 0017 
723 
724 i+ THE FOLLOWING LOC AR Y THE ROUTI OCATED 
, : is chen 1000 10 ct NRORRECT SEO ERATION URDER 4 INBES TVA VA ire BE 
727 000 000000 RELOCF: .WORD 0 come RELOCATI FACTOR (NO MEM MGMT 
738 Go0ss4 000000 PRGMAP: “WORD 0 : PROGRAM E THE, PRUGEA HIS LOCATED 
729 000 900000 MMAVA: (WORD 0 
730 ‘BIT 0 = Mabre 
731 ‘BIT 15 = 1 22 BIT ADDRESSING AVAILABLE 


; MEMORY MANAGEMENT AVAIL ABLE 
; 1 MMU AVAT 


— ———— a ——— ee << ama, “emma: (CC LLL LL LLL LLL LL LLL LLL LLL 
a | 


SEQ 0018 


> 
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SAVER DOWN AND GP ROUTINES ” P - 


733 .SBTTL POWER DOWN AND UP ROUTINES 
Mtrtrtt te itt tte tet tt titi iii iti titi it itiiitii ite. 


‘BOWER DOWN ROUTINE 
: MOV 


012737 000706 000024 $PWRODN: #¢TLLUP, @#PWRVEC ;;SET FOR FAST UP 
012737 000340 000026 MOV #340, OSPWRVEC+2 ;;PRIO:7 
010046 MOV we ; PUSH RO ON STACK 
010146 MOV R1,-(SP ;;PUSH R1 ON STACK 
010246 MOV R2,-(SP ;;PUSH R2 ON STACK 
62 010 MOV R3,-(SP : PUSH R3 ON STACK 
010446 MOV R4,-(SP - 4 ON STACK 
000 010546 MOV R5,-(SP ; PUSH RS ON STACK 
0 017746 000334 MOV ASR, -(SP) :;PUSH @SWR ON STACK 
74 010667 000112 MOV SP, $SAVR6 :;SAVE SP 
2737 S$SPWRUP, O#PWRVEC ;;SET UP VECTOR 


o 000612 000024 MOV 
00CY 


- ;;HANG UP 
”  ] 
. feigicok dao edek dda do eda dodedioek iok dak doi dodidde edo dk ok doko kk 


POWER UP ROUTINE 
PWRUP: MOV 


000612 012737 000706 000024 §$ #$TLLUP, S#PWRVEC ;;SET FOR FAST DOWN 
000620 016706 000066 §SAVR6, SP +3 p 
000624 00506/ 000062 CLR sSAVRE -: WAIT LOOP FOR THE TTY 
000630 00 267 000056 1$: INC SSAVRE »;WAIT FOR THE INC 
0006 001375 BNE $ 33 WO 
0006 012677 000266 SP)+, aSWR ;;POP STACK INTO aSWR 
0642 012605 MOV SP)+/R5 :;POP STACK INTO R5 
0644 012608 MOV SP)+.R4 ;;POP STACK INTO R4 
0646 012603 MOV SP)+,R3 :;POP STACK INTO R3 
000650 012602 MOV SP)+.R2 -;POP STACK INTO R2 
000652 012601 MOV SP)+.R1 ;;POP STACK INTO Ri 
060654 0126 MOV SP}+_RO ;:POP STACK INTO RO 
000656 012737 000540 000024 MOV 4SPWRON, O#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
000664 012737 000340 000026 MOV #340, O8PWRVEC+2 ;;PRIO:7 
000672 004567 021054 JSR R5 SPRINT i60 PRINT OUT THE FOLLOWING MESSAGE. 
0006 76 O24 7 $PWRMG: .WORD PWRMSG POWER FAIL MESSAGE POINTER 
000700 012716 MOV (PC)+. (SP) - RESTART AT RESTAR 
900702 000300 $PWRAD: .WORD RESTART «:RESTART ADDRESS 
000704 000002 RTI 
000706 000000 STLLUP: HALT 5; THE POWER UP SEQUENCE WAS STARTED 
000710 000776 BR 2 -; BEFORE THE POWER DOWN WAS COMPLETE 
000712 000000 SSAVRE: 0 -:PUT THE SP HERE 





Ge 
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OMMON TAGS SEQ 0019 
1231 SBTTL COMMON TAGS 


5p REREEAREEAS EERE AE EEAAEEEAAEEEAEEEEESAREREEAREARESEERERERERER EL EEE 
:4THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:#USED IN THE PROGRAM. 





107 
001070 $CMTAG ;;START OF COM.UN TAGS 
901070 000000 WORD 0 
1 000 $TSTNM: .BYTE 0 ;;CONTAINS THE TEST NUMBER 
00107 000 SERFLG: .BYTE 0 ; CONTAINS ERROR FLAG 
001074 000000 $ICNT: :WORD 6 ;;CONTAINS SUBTEST ITERATION COUNT 
001076 000000 $LPADR: .WORD 0 i CONTAINS SCOPE LOOP. ADDRESS 
001100 000000 S(PERR: .WORD 0 :;CONTAINS SCOPE RETURN FOR ERRORS 
001108 000000 SERTTL: .WORD 0 ; CONTAINS TOTAL ERRORS DETECTED 
Oot 000 STTEMB: .BYTE 0 ; CONTAINS ITEM CONTROL BYTE 
001105 001 $ERMAX: .BYTE 1 ; CONTAINS MAX. ERRORS PER TEST 
001106 000000 SERRPC: -WORD 0 : CONTAINS PC OF LAST ERROR INSTRUCTION 
001110 000000 $GDADR: :WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
001112 000000 $BDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘BAD’ DATA 
Oo1114 000000 §GDDAT: :WORD 0 : CONTAINS ‘GOOD’ DATS 
001116 000000 $BDDAT: WORD 0 :;CONTAINS ‘BAD’ DATA 
001120 000000 "WORD 0  ;RESERVED--NOT TO BE USED 
001 ee 000000 “WORD 0 | 
11 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
Oot 5 900008 $INTAG: -BYIE 0 : INTERRUPT MODE INDICATOR 
1130 177570 SWR:  . WORD DSUR ; ;ADDRESS OF SWITCH REGISTER 
1132 177570 DISPLAY: .WORD DDISP ssADDRESS OF DISPLAY REGISTER 
1134 177560 $TKS: 177560 :;TTY KBD STATUS 
001136 177562 $TKB: 177562 TTY KBD BUFFER 
061140 177564 $TPS: 177564 -: TTY PRINTER STATUS REG. ADDRESS 
001142 177566 $TPB: 177566 :; TTY PRINTER BUFFER REG. ADDRESS 
001144 000 $NULL: BYTE 0 »;CONTAINS NULL CHARACTER FOR FILLS 
001145 002 sFILLS: ‘BYTE 2 ; CONTAINS # OF FILLER CHARACTERS REQUIRED 
001146 O12 SFILLC: .BYTE {2 » INSERT FILL CHARS. AFTER A "LINE FEED” 
00114 000 STPFLG: .BYTE 0 "TERMINAL AVAILABLE” FLAG (BI1<07>=0=YES) 
000004 REPT = 4 
011 0 000000 STHPO: .WORD 0 ;;USER DEFINED 
152 000000 $TMP1: :WORD 0 -;USER DEFINED 
001154 000000 $TMP2: “WORD 0 :;USER DEFINED 
001156 000000 STMP3: .WORD 0 -;USER DEFINED 
001160 000000 $TIMES: 0 -;MAX. NUMBER OF ITERATIONS 
001166 000000 SESCAPE: 0 » ESCAPE ON ERROR ADDRESS 
001164 207 377 377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
$1190 077 SQUES: ASCII /2/ ; ;QUESTION MARK 
001171 015 SCRLF: :ASCIT <i5> » ;CARRIAGE RETURN 
001172 012 000 siF:  :ASCIZ <12> -:LINE FEED 
5g RXKKKKAERK KK RERE RARE RE REEEREEEEE ERE EERE ERER EE EAAEAAEEREEREREEE 
‘SBTTL APT MAILBOX-ETABLE 
ee 
001174 MAIL: ;;APT MAILBOX 
001174 000000 $MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001176 006000 FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001200 000000 $TESTIN: .WORD ATESTN ;;TEST NUMBER 
001202 000000 $PASS:  :WORD APASS ;;PASS COUNT 
001204 000000 SDEVCT: :WORD ADEVCT ;;DEVICE COUNT 


eee 





ee eee ee 





—_——. 
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ILBOX-ETABLE — 
" 001206 rd “WORD ANSGAD eee NS 
S50 BRS TE oe sew ce ngEOP NL 
001214 SENV: BYTE ENV NT_MODE BITS 
ee oe es ub RE, RNY 
$8153 Snoo0o sete. “Moen AeBoee SU vee rion 
000000 imbell : wtit sig % . : 
001920 000000 a." BiTs 15 L1/04-01 11/05-02, 11/20=03,11/40=04, 11/45=05 
i O=REAL. TIME CLOC 
; BEL SSEORLINGuIM proceso 
- : M.S. BYTE 
AMS1 ;;HIGH ADDRESS,M. 
1224 000 pane: BYTE MS tae IYPESBURGL a pyae) 
001225 000 » eal AE TYPE EY cee contro 
: a3 Ie Races °° 
;* 50 
000000 GHADRL: WORD AMADRL “THER -LAST ADA. =8°BYTES,THIS WORD AND LOW OF “TYPE* ABOVE 
eeu it HIGH ADDRESS 1.5. BYT 
“ibe res: es aS 
00133) 0606 SHADRS: “WORD ANADRe sen rAborese ne $B 
00 00 MAMSS : -BYTE  {MEM. TYPE ,BLKS3 
13408 HADRS: “TORD  AMIADRS. L{HEMCLAST ADDRESS . BLK 3 
001335 000 eee: Ae 6 Amaney | tem bOe) Beene pune 
Bie cE cg 
081342 000000 ACT: SMD ECE HSER VECTOR Bs, pero 
Sau Sans Tc MM ig AR Me 
904958 99agod SDEVM: “HOR ACDWi }{CONTROLLER DESCRIPTION WORD#1 
ae 900000 sCOwL: RD ACD CONTROLER Gaene? iON HORDE2 
sCDWe: ;:DEVICE DES 
001256 000000 one: teh AbpuY. TS DEWERE BESERSPTOR WORD#1 
SP ts0y Beonen DOWD: “WORD ADDS + | SDEVECE DESCRIPTOR WORDS? 
Oo 150s 000900 $DDW2: .WORD DWe te ESCRIPTOR WORD ES 
Raises | Beaeen Poa; “WORD ADDU =; ;DEVICE DESCRIPTOR WORDSA 
$598 BRO SDDW4: —. WOR US | {DEVICE DESCRIPTOR WORD ES 
QSiEFE G0g99 EDDWe: “WORD —ADDWG, © {DEVICE DESCRIPTOR WoRDee 
ie Beene sDDW6: DU? {DEVICE DESCRIPTOR WORDS? 
SG1574 000 SDbws: “WORD ADDWS —;;DEVICE DESCRIPTOR WORDSS 
001809 590000 DOW; WORD ADDS {DEVICE DESCRIPTOR WORDS9 
OOtE2S  Bn008e SDD: WORD —ADDWS ; :DEVICE DESCRIPICR WORD#9, 
Oot aes  bkeeen SOOWTT; “WORD ADDL? ;:DEVICE DESCRIPTOR WORDSII 
Bote 200008 SDOWIL: WORD ADDWIL ; :DEVICE DESCRIPTOR WORDS 
901316 000000 SDDUI: “WORD ADDWAS : DEVICE DESCRIPTOR WORDS13 
1310 000000 SDDW13: .WORD ADDWIS ;; ESCRIPTOR WORD#14 
S182 $0000 SDOWI4: -WORD ADDN : DEVICE DESCRIPTOR WORDSTS 
SDDWI5: :WOR 
SSteae 00000 SETEND : 
” "SBTTL APT PARAMETER BLOCK 


Sill 
———— 











ee ee 


I2 


900024 
0044 


S 


SSSSsss 
oo 


Mh 


se to fe i oe de BAIN NW 
SRSHOSORSESS 


SESRSE 


ye ed ed ed ed ed ed ee ed ee ed en ee ee eee) 


oF padededededdedead daa ednednbadedndedonededed 


pare t arf ur tar ter tart errr 
LAS & > > be 
SSz2STs Fey 


= —- 





INN SSN SINS SNS NSS SSN SSIS NINGS 
ee a a a a a a a a Re a a a A 


000000 
070032 
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T PRRAMETER BLOCK ’ i 


SEQ 0021 | 


* KEKKAAAADEDCAADAAEAAAAEKAAEKEKEALAEARAARAAEAERAESCRAAKAAAAKEAKELEAAL AKERS 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
s RAAKAAEARARKEEAAREAAERAEESERAESE EERE RERE ERE ER EEEAEERAAKERAREEE EES 
.$X=,  ;;SAVE CURRENT LOCATION 
"224 11 SE POWER FAIL TO POINT TO START OF PROGRAM 


FOR APT START_UP 
=44 ;;POINT TO APT INDIRECT SOORESS PNTR. 
SAPTHOR : POINT TQ APT HEADER BLOCK 
. $X jgRESET LOCATION COUNTER 
-kkkkkkikhehkkt ikke kARK KARL KA KA RRA A KKK AK AE KE EE EE KK KEE 
TUP_APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


“INTERFACE SPEC. 

ILBOX ADDR. 

TS 0-159 
ASS ON 1 UNIT (QUICK 
0 EACH 


1 UNI 
FA PaRe FOR 
LECWORDS | 


0 

: $MAIL 
SS 900. 
STM: Uap 1200. 


C 
“WORD  $ETEND-SMAIL/2 ;;LENGTH M 
-SBTTL APT STATISTICS TABLE 


VERIFY) 
ADDITIONAL UNIT 


> 
me 
©) 
S 


ee ee 
REPT 31 
WORD -1,0 
. WORD -j 0 
. WORD -1 0 
.WOR -j 0 
.WOR -1 0 
. WORD -1 0 
.WOR -1 0 
.WOR -j ,0 
.WOR -1,0 
. WOR -1 0 
.WORD -l ,0 
WORD -1,0 
. WORD -1 0 
.WOR -1,0 
. WOR -j 0 
. WORD -j 0 
. WORD -1 ,0 
. WORD -1 ,0 
. WORD -i ,0 
. WORD -j ,0 
. WORD -1 0 
.WORD -1,0 
.WORD -j 9 
. WORD -j 0 

.WORD -j 0 
$ASTEND: -1 
$APTR: $ASTAT 


(ddd doko i dk ok ok ao idk ik kook ok oi ok ok ok do ek ek i kk ek 
; «THE FOLLOWING TAGS ARE USER DEFINED 

doe dgcko ie idee oe tok ko kt do dock tok bk bk 0k tb tok kk ek 
;VIRTUAL PC LOCATION FOR ERROR Typeo ROUTINE CSERTYP). 
;CORE PARITY REG BITS RESERVED FOR F 

sNOTE: FOR MSi1 MEMORY WITH PARITY, CHANGE TO 077772. 


iVERPC: .WORD 0 
RESRVD: .WORD 070032 
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STATISTICS TABLE 


001510 
001512 


001514 


gssse 


bb pep pepe 


SSsssssssss 
USRS 


001554 


> 


VIANA WV U1 


SREVSARENSAHVONS 
SSSSSssssssss 


oO 
© 


SSSSSSSSSSSSSSS 


ee pp ee 


DOO 


001612 
001614 


APADAAANWNOO 


SRVSREVSHS 
S 


eS 


SSSseeeeeccos 


os 
~ 








oe 


REVSRS 
S 
g 


SSSssessesssss 
SSSSSSSSSSSSS 


LMAD : 


LDDISP: . 


MEMMAP : 


TSTMAP : 


SAVTST: 
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;LAST CONTIGUOUS MEMORY ADDRESS (+2) 


Eeeeeerrcerrereceeesce 
S2SSSSSBBDBBBDBHB BOO 
SSOSSSSOSSODSSSS50 
ve lolololololololalelololololol—) 


fSeeececeecerrceercesce 
SSSBSSSBBLBLGBBBBO 
SSSSSSSSSSS000 


= 
OO 
OOOO COCOCOCCOOCOoCooOo 


ereeeecererscecese 
SSBBBSSBDBDD OD 
SSSS095005S095 
COSCSSCDCOOOOCO 


. 


SEQ 0022 


;CONTAINS DISPLAY REGISTER IMAGE 
;MEMORY MAP - EACH BIT CORRESPONDS TO 8K 
;1ST WORD MAP...128KW 

KW 


H nie 
;15TH WORD MAP. .1920KW 
;16TH WORD MAP. .2048KW 


:TEST MAP - WHICH BANKS ARE SELECTED FOR TEST. 
-1ST MAP... 128KW 
igh p's KW 
;3RD WORD MAP... 384KW 
4TH WORD MAP... .512KW 
;5TH WORD 1 I oa 
-61H MAP... 768KW 
-71H WORD MAP...896KW 
:8TH WORD MAP. .1024KW 
-9TH WORD MAP. .1152KW 
:10TH MAP. . 1280KW 
sLiTH MAP. . 1408KW 
iteth MAP. .1536KW 
-13TH WORD MAP. .1664KW 
;14TH ue MAP. .1792KW 
:iSTH MAP. .1920KW 
-16TH WOND MAP. .2048KW 
SAVED TEST MAP - USED DURING FIRST PASS TO ONLY 
; TEST EACH BANK ONCE. 
-1ST WORD MAP...128KW 
s2ND WORD 2 EE Toe 
-3RD WORD MAP...384KW 
;4TH WORD MAP...S12KW 
STH WORD MAP...640KW 
;67H re 

-7TH 896KW 
>8TH 

10 

il 

12 

13 


_—— ————— ne 








Ko. OTE. ap eS | 
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P eFaTIsT ECs SEQ 0023 | 
001646 000000 ‘WORD 0 514TH WORD MAP. .1792KW 
01650 900000 "WORD 0 “15TH WORD MAP. | 1920KW 
001652 000000 "WORD 0 :16TH WORD MAP. | 2048KW 
001654 PMEMAP : -PARITY MAP - WHICH BANKS HAVE MEMORY PARITY 
001654 000000 WORD 0 1ST WORD MAP... 128KW 
1656 00 "WORD 0 :2ND WORD MAP. 256K 
"WORD 0 :3RD WORD MAP. || 384KW 
091662 "WORD 0 ‘ATH WORD MAP|. 512KW 
0016 00 "WORD 0 ‘STH WORD MAP... 640KW 
666 00 ‘WORD 0 ‘6TH WORD MAP. || 768KW 
001670 000000 “WORD 0 -7TH WORD MAP. | 896 
001672 000000 "WORD 0 ‘8TH WORD MAP. | i024KW 
001674 000000 "WORD 0 ‘OTH WORD MAP. 1152KW 
001676 000000 “WORD 0 ‘10TH WORD MAP. | 1280 
00 000000 "WORD 0 ‘11TH WORD MAP. | 1408KW 
001702 000000 "WORD 0 512TH MAP: | 1536KW 
001704 000000 ‘WORD 0 -13TH WORD MAP. | 1664KW 
001706 000000 "WORD 0 ‘14TH WORD MAP. | 1792KW 
001710 000000 "WORD 0 “15TH WORD MAP. | 1920KW 
001712 000000 "WORD 0 :16TH WORD MAP. | 2048KW 
001714 BITPT: sPOINTER TO CURRENT 8K BANK OF MEMORY 
001714 0000 WORD 0 1ST WORD MAP...128KW 
1716 0000 “WORD 0 : ND WORD MAP| | -256KW 
00172 000000 "WORD 0 HORD MAP | |” 384K 
001722 000000 "WORD 0 ‘ATH WORD MAP. | |512KW 
001704 00 00 “WORD 0 :5T MAP | | 640KW 
726 00 wW 0 >61TH MAP... 768KW 
001730 000000 "WORD 0 -7TH MAP|: “896KW 
001732 000000 "WORD 0 :8TH MAP| | i024KW 
001734 000000 "WORD 0 9TH WORD MAP. |1152KW 
0017 000000 “WORD 0 510TH MAP | | 1280KW 
00 740 000000 "WORD 0 i11TH MAP | | 1408KW 
1742 000000 "WORD 0 :12TH MAP| | 1536KW 
001744 000000 “WORD 0 :13TH MAP | | 1664K 
001746 000000 "WORD 0 ‘14TH MAP| |1792KW 
001750 000000 "WORD 0 :15TH "1920KW 
001752 000000 "WORD 0 ‘16TH WORD MAP” | 2048K 
001754 000000 MMORE: .WORD 0 ;LOOP ADDRESS FOR MULTIPLE BLOCK TESTING. 
‘SET UP BY "INITMM” AND "INITDN" ROUTINES. 
:USED BY "MMUP” AND "MMDOWN” ROUTINES. 
0017 000 SELFLG: .BYTE 0 : OPERATOR SELECTED PARAMETERS FLAG. (SA=204 
00175 000 FLAGSK: ‘BYTE 0 :8K BL IN “"INITMM” A 
001760 000 OEFLG avTE 0 :UDD/EV ‘ i ate IN URED TY MEMORY BYTE TESTO 
0 


Oot 


* "EVEN 
001762 000000 FSTADR: .WORD ‘FIRST VIRTUAL ADDRES E TESTED. 
TO BREAK TO. "HPP. 19, Me LAST ADDRESS. 
001764 000000 ‘CONST: .WORD 0 “USER SELECTABLE CONST 
001766 000004 WP: ° WORD WRITE WRONG PARITY C 
001770 000000 TEMP: {WORD TEMPORARY STORAGE 





ee 








acer satttrmaverrersinotntins 
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ATISTICS TABLE 


| 
SEQ 0024 
001772 000000 TEMP1: .WORD 0 -TEMPORARY STORAGE 
001774 000000 FLG30K: .WORD 0 :30K MEMORY FLAG 
001776 000000 LSIFLG: .WORD 0 :LST-11 PROCESSOR FLAG 
002000 00000 KDJDA: WORD 0 ;;VK KDJ11-DA (11/53) CPU FLAG 
002002 000000 PLUSi: .WORD 0 ‘OATA BIT USED FOR FIRST ENTRY INTO 
sMMUP AND MMDOWN ROUTINES. 
sp REKEEAEEAKEAEERAEREKAEEE EAE EE EEEERESERA SESE EERE AALS EEE EASE EEE 
:&* RELATIVE ADDRESSING TABLE. 
= THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 
-& RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUMENT TAGS. 
00 004 ee ee 
002004 001070 STACK: $CMTAG sSTACK POINTER INITIAL ADDRESS. 
00 06 001514 "MEMMAP : MEMMAP AUTO. MEMORY SIZING MAP 
10 001614 “SAVTST: SAVTST :SIZEO MEMORY MAP FROM AUTO. OR USER 
002014 0015 “TSTMAP: TSTMAP ;MEMORY MAP OF 8K BANKS TO TEST 
0020 0016 "PMEMAP : PMEMAP :PARITY MAP OF 8K BANKS 
00 16 001 44 ITFT: BITPT BIT POINTER FOR BLOCK UNDER TEST 
00 0015 ESRV: RESRVD -PARITY REGISTER RESERVED BIT HASK ADDRESS. 
022 AL MPRO: MPRO ‘MEMORY PARITY REGISTER TABLE ADDRESS. 
024 72 MPRX: MPRX :MEMORY PARITY REGISTER EXIST TABLE ADDRESS 
026 010520 PBTRP: PBTRP “PARITY BYTE TES AP ROUTINE ADDRESS. 
0 44 MPPAT: MPPATS sMEMORY PARITY PATTERN TABLE ADDRESS. 
of 32 PESRV: PESRV sMEMORY PARTTY ERROR TRAP ROUTINE ADDRESS. 
34 ERRTB: $ERRTB “ERROR TYPE TABLE PONTER. 
00 000010 EIGH “DECIMAL TY RO INE COUNT DESIGNATOR. 
002040 012506 T5732 32 ‘SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST. 


. ” 7 
sy RAEKKEEESESERA SAREE ARES SASERE REAR SERAA SEAS RE REREES ERLE AEE EES 
;* DATA CONTAINERS FOR ERROR PRINTOUT. 


© > KKKXEKAZEEKEALALE REESE CASA SEAAEAKE AE RARAEASALERAS ES AEEAEEAKEKESEEELKEES 
002082 001106 001110 001114 OT1: $ERRPC,$GDADR, $GDDAT, $BDDAT,O 
00 4 001504 001106 001110 OT2:  $VERPC, $ERRPC, $GDADR, $GDDAT, $BDDAT,0 
a7 901504 904108 001110 DTi2:  $VERPC,$ERRPC, $GDADR,$GDDAT,0 
108 001804 001106 001150 0114:  $VERPC,$ERRPC,$TMPO, $GDADR,0 
1 4 00 504 001106 001110 DT15:  $VERPC,$ERRPC, $GDADR,$TMPO, $GDDAT, $BDDAT,0 
i ; 00 130 001114 001116 
09 Li 001504 001106 601150 DT21:  $VERPC, $ERRPC, $TMPO, $GDADR, $GDDAT, $BDDAT,0O 
002146 000000 
3 i te 001106 001110 D123:  $VERPC, $ERRPC, $GDADR, $BDADR, $GDDAT, $BDDAT, 0 
164 S00 
00 166 001504 001106 001112 DT24:  $VERPC,$ERRPC, $BDADR,0 
00 46 001504 001106 001112 DT25:  $VERPC,$ERRPC,$BDADR,$TMPO,$TMPi,® 
00 001150 901152 000000 
002212 001504 001106 001150 DT26: $VERPC,$ERRPC,$TMPO, $TMP1,0 
00 001132 000000 
0022204 001150 001152 001110 DT30: $TMPO,$TMP1, $GDADR, $BDDAT,0 
00 001116 000000 
002236 001156 000000 DT3i:  $TMP3,0 





-~- ——_—_ - eel 





Se atteneenndeiennaiamnaen 





Me 
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T STATISTICS TABLE SEQ 0025 


| 
| 
002242 177777 -WORD -1 ;TABLE TERMINATOR. | 


.SBTTL MEMORY PARITY PATTERNS TABLE 
ake AE AEREEEA AA RE AAEEAREERERAREARER ERAS RE AAEE EARS RAGE EE EEE EREE 


tHe FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 
5 REKESAESEAREAERE RAKE EAEREESAREAL ESE ERESS goat EAEEEEEEEE EKER EEE 


002244 125325 aout. 125325 EVEN, ODD 
S46 2652 183 563 ODD ,EVE 
gt3e eer 36 EVEN, ODD 
ie 02512 :ODD ,EVE 
00 182070 102070 EVEN, EVEN 
072527 072527 : ODD , ODD 
60 1 7 177777 EVEN EVEN 
002262 107030 107030 ODD ,6 
305566 536082 ‘on i000 6 VBATTERN HOLDER FOR 
-FUTURE USE 
002270 000000 MPEND: 0 STABLE TERMINATOR 
‘SBTTL MEMORY PARITY REGISTER ADDRESS TABLE 
4A TT AE FOLLOMING. REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 
5k LL OWING PRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 
i@ HoH i BRR TTY MEMORY IS ADDRESSED & CONTROLLED: 
'& THE LEAST SI TFICANT it DEVICE ADDRESS IS SET TO A ONE (1) 
-& IF THE e 1S 0 aM 19 E ESENT FOP EMORY PRECENT ER 
-& THE ONT L CH LER Is REPRESENTED BY 16 WORDS FOLLOWING 
:& THE ofiboRE $s Y ONLY 1 WORD IS USED 
;« (EACH “BLT Re ES ne A 8K ar * I.£. FIRST WORD BITO = 0 - 8K, 
4 3 = 24-28KW 16 BIT ADDRESSING 
ik tf 15 = 120-124KW 18 BIT ADDRESSING 
SLLLLILTTATL ATTA LT ATTA TATA LALLA ALATA 
27 172101 MPRO: 172100 7 sPARITY STATUS REGISTER 
7 0000 51ST HAP. . .L28KW 
76 000000 Wl 0 :2ND TR HAP. .2 KW 
000000 "WORD 0 : TROL MAP... 384KW 
2 000000 "WORD 0 :4TH TR MAP|. .512KW 
000000 ‘WORD 0 :5TH a MAP. |. 
00 06 000000 "WORD 0 6TH TROL MAP... 768KW 
{> 900000 ‘WORD ‘TH TROL HAP” 1028K 
ie ae ay 3 ih Rae ae Bee 
58 380090 WD 0 11TH Or MAP | | 1408KW 
A02322 000000 "WORD 0 :1@TH TR MAP. . 1536KW 
00 : 4 906099 "WORD 0 : 13TH ROL MAP 1664K 
0006 "WORD 0 - 14TH TROL MAP. .1792KW 
00 900000 "WORD 0 :15TH RD CONTR + 1920KW 
0000 "WORD 0 : 16TH TROL MAP. . -2048K 
00 2000 "WORD 0 “MASK FOR UNUSE PARITY CSR BITS 
7219 MPR1: 172102 +f -PARITY STAT EGISTER 
00234 00 WORD 0 :1ST ONTROL MAP... 128KW 
00 5 900000 "WORD 0 :gND ONTROL HAP. .8 KW 
905846 000000 ORD ae UORD EONTROL HAP.” “StoKW 
00235¢ 000000 "WORD 0 ‘STH WORD CONTROL MAP... .640KW 





-_-<—— - eae eee eee eee 





CV 
ME 
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' - SEQ 0026 


s23322222225 33332222222222 ah $3333232S22S 2222K $323223SS 
SE, eRe G, MENUS, Sa 
I I a; views 6s « 
ee SSS SSSe Seas eesteeesssr Setsgustssssessseersssges sess re 


ce 
555255555555 S855 55555505 55555 


LESSSESESESSSSSSSS ASSESSES 











s (ee 2 2s) 
e2eeeeeeess D222 : 
SSSoeesssesr, S 2 => > 
rrr eee eee errr eee ferret oe _- > + 
H——H—-onnmernoctanZer err OonnMmdrinoaamn HHH RK onnmemnwo w” a a ay er a 
OP OD tet st 4 A AE ACUI FLOP CO Dn et teste oo AE O. ANI I NOP~ GO Qh em testes oto o 4 E-O. IONUIIF LOP~ CD 


Oo 








j SESESESSCESS SEESCESSSESSCESS CS SSCS SSCESSCCEELSESSEEESES 
gy Y 9 = 
: o o 2 
Sus 
#2 
ae 
eS 
aS Ssssssssssssssssssssssssssssssssssssssssssss 
3 sees 3333 Sssxsssssssssssssssssxussssss Seeccseceseceses 
| a3 S SSSSSSSSSN SSS SSS SSS SSS SSeS SSeS SS SSSSeeS 
| Ce SR SS ee SoS S RNG O IOS Fg FDOT S SOBEL SSS SAN 
| “S S88ssSsssesssssssssssssssssssssssssssssssssssssssssssssssss 
| CUS& 
— re 


& 
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REMORY PARITY REGISTER ADORESS 





SEQ 0027 
| 
E ALS2KM 
WOR ee 
0 MAP. . 1S36KW 
ae wep ie ae 
000000 “WOR 6 aa HAP. s20Ku 
y 0 : 16TH uusen PARITY CSR BITS 
We. BARI Masi sao 128Ky 
$s ae me feet | te 
806000 WORD 0 SRD ROL HAP.” “Si2KW 
$0 0000 .W Q ; tf AP... .640KW 
ae os} Hie eco 
op 00 4 h 0 1Ti oN MAP. . 1024KW 
Resi Gis Hep 820K, Wi COME 11S 
092576 900009 WORD 0 TROL HAP 1408K 
002602 990000 WORD ; TROL HAP“ 1e6aKW 
See Ss He} TG ERE Hebe 
8 Sab Ee a 
002616 900000 | A at ‘PARITY. STA EGISTER 
06 009009 MPR6 : “He 7 -1ST ROL MAP’. >SEKW 
00 15 W : . $33 
00 ‘ WORD SRD TROL HAP’ ” “1 2KW 
00 Q :aTH ot MAP. . .640 
909632 000000 “WORD 9 ‘Th TROL MAP: 768KW 
SPSeRs  SooReS “WORD 0 ‘eT ONTROL HAP”. 886 
003636 000000 ‘WORD 0 ‘ATH ONTROL HAP. - {024KW 
00 . :9TH 
set a et i MES Ga eH 
; 0 : TROL MAP 
00 8000 WORD sie Th ONT MAP. . 1664KW 
002650 000000 WORD tain WOR MER tab’ 5Gonu 
805686 900000 “WORD 9 'TGTH WORD CONTROL HAP °2048KW 
003666 000000 -WORD 0 rth ED PARITY CSR BITS 
‘ ;MASK_FOR_UNUS 
a Fe TD 
66000 "WORD «0 = $2ND WORD CONTROL HAP* “256K 
a 46 - WORD 0 > 3RD rth ONTROL MAP.. .512KW 
$0564 900000 ‘WORD iSTH WORD CONTROL MAP: : “40K 
002676 000000 uD 8 ;6TH WORD Ete HAP’ aoe 
003700 000000 a a WORD CONTROL MAP: 896K 
002702 000000 - WOR :8TH WORD CONT S2KW 
905706 900000 HOD 8 STH, Amp EOE nap: 1280Kt 
009719 000000 “WORD 0 {ITH WORD CONTROL MAP’ 1 
| 003718 000000 
| 
eS 


i eee 
mw we OOUSESS 
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SgG2, RSME, SaSGeeiDaesines, Manatees za* 
REE KER NM, 5: Me 
SSeS SiUseseeeesssssseseeuresrsssssssssss seus esses eeese ess 
dessats Eddddddddddddddds” tdsdsssssssssddss* edddddssssssss 





OO000Z 


SEGR GOSS RRREE LESSEE” BESS SRERS SSS REEs  SERREROSIIEENE 


EEEEOM oe rerr et eee EEE corercr renee ehe-oox ———— 
ttt ot AO. MICU SF OP COD) ttt 4 AO IOUS LOE COD tet wtetot FO ACU — 


B88 8888888889999 9989999 OOOO MOBOOOBOOOOOOOOOS 


Pa at a ta a tn te nt tn te tt ttt tal ttt ttn att tat att tat tatty int at ttt att ttt ttt 


SSE585 ESBS SESSESE SSE SES SSR SSR SSR SR esse sASseesessessees 


sucesessssiaeee 


ANNUUM SS SS RAS 


~~~ rrr rrr 


774 sp 


See8 
SucucucucucucucuCucucuCUCUCUOCUCUqUquouCUeU = 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3SS 


ae re mt 
7-0 ee oe eee eee me eee A LT 


r) 
LU 
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0- 
PARITY REGISTER ADDRESS TABLE 


C 
ME 








vw" uw Ww wW 

— m — = 
SH SSS SSS SSS SSS SS SS 3333322322233 3S2E25 ee ee ee ee ee 
24> a. + + + 2 > 2. 2 + > + > + so 4-* DOGF WOOO MOOST UO a > > > + > + > > + + > 2 22 2 4-:) 
Boq RRSVSSRANSSRENR SE RRSNSRANSSNSONSa MRSS SRN S SSSR S 
RS NAMASROSIYSISMASY AUMSNOSTNICR AL Umino SANSRSE TSS 
eee Ee REE EP ERE Ra EE Cee "RE RES Ree eRe 

—-UWo0.00.0.000.0a0. Qa. Wa. 6. aa.a.a. Lil a.0a0.0.00.00AQ. o.a.0.+— 
ooo Uses eeereeesssesenustsrtseressirrssseor tes sssess esse eee 
da Bddddddsssasssdsa* Beddsssdddssasddds* Bedddsddddsddddds* 
ewrorerererereeeerereeoeroeoeocrocaecacaecacaecoececaencoceaeaeceacaeceoeceaecaec#aee 
eT TS a ed el ed ed aed aed wae ed ed eed weed weed peed oe seed sed) eee eee eee resesz SASS S455 550 
55245555455555555555 59555555555 55555565 SSS SSSSSSSSSSSSSS 
22x) BSS SS 2222s SS SRR . BREE ES RRR RRREES «SERRE SEES SES ERE 

2, SSSSeser esse sssstr> Ss SSSeesr, Seeeeees Sess SSS 
Sa SEREEEERD, Sorcecec tee te tee corerrcxe eee ened 
Rote SSzZZEEre hn neeen SE EEEaeonnmeinerenSennereronmenes 
SL ae eee Te ee ee EE ee TE TS ae oe Aa OE Ee GE TS ok te woe Oe OD ah oe Oe On eee 


\o Ow 
Pt a a at a te a tt at ta tnt et tn tt tnt tt tot tlt ttt st ttt st st ttt ttt ot 


SSS SSS SS SSS SS SS SSSR SNS RSS SSS SSS SSS SSS SASS SSS SSS SSS SS SESS 


23S SS SE SSE SE SSS SSS SSeS SS aS SS SV Sa SVS Sas aaa Ss ee SS aS aS a as a as aa aa aaa aS a 


Ts T ¢ 6 s 8 8 be 6 S T 6 a SS OS a ss 8 6 3 3 8 8 8 8 8 ee 8 im se «ss S Ss SS eS Se he Se SG 
wt ou nm 
— oe} we 
a x a 
= ca = 


Ere Pree eee EEE EEE EEE EEE EEE 
a SSSSSSHSSSSSSSSSSSSSSSSSASSSSSSSSSS 2 
seenescsesss SSSSSSSN SSS SSS SS SSS SSeS SSN SSS Se eeSS 353 2 
SISSLLTLILANSLSISSIIS LANFLSYS VOWS OQUgF GOs OOM GOS BONS OOS LO 


tt rtd od ht ot ot he et et i II st I III HMI MI HMI HMAC 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSssssssssssssssssssssss 





SS SS A 
Aer. ae —_— oo oe rr 
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AWORD 
GISTER 
172135 


fy’ Re 
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WwW 
te 
~< 
uJ 
— 
8 
xr 
— 
WwW 
Ce 
tid 
— 
w 
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re 
° 


aa 
== 
t= 
SESS eeeeeereeereerroreerereecece 


eoror 
8SSS5555555555555SS5555555555555 








—" 

be abe he sae od ed ed wed eed eed ed et 2) * dl 
Snes er tees ooAMeinwo Ww 
A AHNUM SFINWOP- ON HHA AALA AM 


=e e@ ¢@ ¢@ ¢@ *@ #¢@ *@ *¢@ *@ = ¢@ ¢= «@ ©@ 6@ ©@ 4+@ ©@ ¢@ 66 6@ 66 *@ ©@ €@ 2 €@ @€@ 46 68 ©@ © £@ £& b— se se 


17. 


MOQOOOOOOOOSOOOO OOO MQDOOOGOOOOOOOEESS © 


34 
D 
D 
0 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
0 
D 
36 
D 
D 
D 
: 
D 
D 
D 


UNSSOSSOS OOOO OOS OO OAS O OOO OOOO OOO OOOOS 


a a ere ere ter dete ee rhe eet tert er eter erate 
ew tae et tw ae ee Se 6 2 bw OS en . = we Oo oe el Ue ee ee ae ee a oe 


;THIS IS THE END OF THE 
MPRX : BLKW 


MPR14 
MPR1S: 


0000 
0000 


SSsessssnssssss SSSSssssss 
S ssssusssssssss SSssss 
See SSSSASSSSSSSSSSSSSSSSS 


SOSH NE LSSSSINILANAGOSSOSS IS SRAARSSSSL 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS8S3E 


003372 














| FS | 
VMSAB 0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 98:45 Page 6 
ERROR POINTER TAAL . - SEQ 0031 | 


.SBTTL _ERROR POINTER TABLE 


:#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
-&THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE T Le S PERTINENT. 
: «NOTE 1: F $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($E ' 
: NOTED: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
i EM ;;POINTS TO THE ERROR MESSAGE 
; OH ;;POINTS TO THE DATA HEADER 
5 DT ;;POINTS TO THE DATA 
_— a OF ;;POINTS TO THE DATA FORMAT 
ore hoy 
DM1 sPARITY REGISTER DATA ERROR. 
12H4 oosase 02s oh PARITY REGIST 
1 ; 003440 002042 OT1 s $ERRPC. $GDADR, $GDDAT, $BDDAT 
Be 003442 02725 : — 16,22, 16,16 
DM2 sADDRESS TEST ERROR(TST1-5). 
tas GOES S228 BS BEAR FEMS 
42 00 002054 0T2 s $VERPC, $ERRPC, $GDADR, $GDDAT, $BDDAT 
1248 TES epee : rene s :16,22,22, 16,16 
1245 00 54 025206 ; DM2 sADDRESS TEST ERROR(TST1-5). 
1 46 00 067614 DH31 iV/PC P/PC.MA,S/B, WAS 
124 06 60 0020 DT2 : $VERPC, $ERRPC, $GDADR, $GDDAT, $BDDAT 
48 62 027261 ; ren a :16,22,22,8,8 
02524 0M4 sCONSTANT DATA ERROR(TST6-10). 
1250 ocsasa pS 2e%e DH2 Ope BY PCOHA SUB nS 
1 : 0034 70 og20>4 DIg . $VERPC, SERRPC, $GDADR, $GDDAT, $BDDAT 
: 72 0272 al Fe :16,22,22, 16,16 
4 DMS sROTATING BIT ERROR(TST11-12). 
1386 03476 852890 DH2 :V/PC,P/PC,MA,S/B, WAS 
003500 o20>4 DT2 - $VERPC, SERRPC, $GDADR, $GDDAT, $BDDAT 
6 003502 027254 F renee :16,22,02, 16,16 
33 M6 -MOS REFRESH TEST ERROR (TST24-25). 
t ? Ne 56 8 233 DH2 -V/PC,P/PC,MA, S/B, WAS 
1 003 19 002004 DT2 - $VERPC, $ERRPC, $GDADR, $GDDAT , $BDDAT 
i 003512 027254 ; renege :16,22,22, 16,16 
; ; BEL 025402 pH? -FATAL ERROR HALT 
1 003828 000000 0 
1268 003522 000000 0 
1269 -« ITEM 10 
0 00 4 o254e8 DM10 sMARCHING 1'S AND 0'S ERROR(TST23). 
7 0265 DH? -V/PC,P/PC,MA, S/B, WAS 
i312 00 002054 DT2 - $VERPC, $ERRPC, $GDADR, $GDDAT , $BDDAT 
1e73 00 027254 rents :16,22,22,16,16 
ie SB SR a PRE BERRY BOugSS ERRORCTSTS). 
isis 003540 002054 DT2 : $VERPC, $ERRPC, $GDADR, $GDDAT, $BDDAT 











_—- ———- i 


4 


SEQ 0032 
1 18 003542 027261 OF3 :16,22,22,8,8 
127 :& ITEM 12 
1280 003 025533 M12 sDATIO WITH WRONG PARITY DIDN'T TRAP(TST13). 
128 905 74 DHI2 iV/PC p/PC MA.S/B 
70 Tie : $VERPC, SERRPC, $GDADR, $GDDAT 
13h 003552 027261 ; rena :16,22,22,8 
003554 025607 DMi3 sWRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG. 
1286 003556 026574 DHi2 -V/PC,P/PC MA, S/B 
12 7 09 070 DTi2 : $VERPC, $ERRPC, $GDADR, $GDDAT 
tg é 261 : rene: :16,22,22,8 
7 14 sPARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13). 
t o03866 352293 Buta TORE P/E REG HA 
003570 002102 DT14 : $VERPC, $ERRPC, $TMPO, $GDADR 
4 003572 027266 OF 14 516,22,22,22 
5 -* ITEM 15 
: 003574 025152 DMi sPARITY REGISTER DATA ERROR. 
003576 026652 DH15 :-V/PC,P/PC,MAUT, REG, S/B, WAS 
298 003600 002114 DT15 : $VERPC, $ERRPC, $GDADR, $TMPO, $GDDAT, $BDDAT 
3 02 027266 ; rene :16,22,22,22,16, 16 
04 025777 0M16 sMORE THAN ONE REGISTER INDICATED PARITY ERROR. 
0266 3 DHI4 iV/PC,B/PC REG ,MA 
1 2102 T14 : $VERPC, SERRPC, $TMPO, $GDADR 
3612 027266 OF 14 :16,22,22, 22 


616 027214 DH31 oT ope BA Soa. was 
62 20054 0T2 : $VERPC, $SERRPC, $GDADR, $GDDAT, $BDDAT 
22 027261 :16,22,22,8,8 


o56k ;RANDOM DATA ERROR(TST14). 
026 z DH ;V/PC ,P/PC poe 4c WAS 


3614 026056 mo "DMi7 i eee ear oe 


=SSSSSS 


PW OOD SDUNEWN OOD IDES OF O OO INUS 


$VERPC, $ERRPC, SGDADR, $GDDAT, $BDDAT 


:16,22,22,16,16 


sINSTRUCTION EXECUTION ERROR(TST15-22). 
TBE PyPC LUT HALSyB Wis 

21 - $VERPC, $ERRPC, $THPO, $GDADR, $GDDAT, $BDDAT 
ot :16,22,16,22,16,16 

2 «NOT USED 

CHGG1 


AWAWNNW 


ed ed eed ee ee eee 


002132 D 
027274 DF 


te fe 
VOR 


fOror 


34 26255 pres ; PROGRAM CODE CHANGED WHEN RELOCATED . 
026772 H23 -¥/PC,P/PC.SRC MA,DST MA,S/B,WA 

60 092150 : $VERPC, $ERRPC, $GDADR, $BDADR . $GDDAT, $BDDAT 
62 027266 OF 14 :16,22,22,22,10,16 

64 -« ITEM 24 


026322 DM24 -TRAPPED, BUT NO REGISTER HAD ERROR BIT SET. 
027046 DH24 -V/PC,P/PC, TRP/PC 
2166 0T24 - $VERPC, $ERRPC, $BDADR 


gee sees ses see see s28 2 geee 8 
oS 
oe 
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SEQ 0033 
1335 003672 027266 DF 14 516, 22,22 
1335 003674 026376 + NES. STRAPPED TO 114. 
t a 86 46 027071 DH25 iV /PC P/PC, TRP/PC, REG, WAS 
1340 oo302 029266 Bria VERDC, SEfRPC , SBDADR, #THPO, $THPL 
t 003704 0264 . ‘FAILED TO TRAP. 
106 atk DH26 Ne P/PC REG, WAS 
: 4 , 9 O02e1¢ DIg6 Ve pC, SERKPC, $TMPO, $TMP2 
sk ITEM 27 -. . 
| 1 903744 3 36 pli? rrp 
: 09 123 213 DT26 sVEROC. SE SERRBR’ $TMPO, $TMP1 
i 0 003722 02 :16,22,202, 16 
-« ITEM 30 
Hs gues see ben HOLE 
i 00 7 009204 DT30 REGIA SAHA $GDADR, $BDDAT 
i 5 003732 027302 , rene :22,16,22,8 
He EE Beer et ae 
1 : 003740 002256 D131 - $TMP3 
0 003742 02 DF 30 :22 
5 -SBTTL START: SETUP AND MAP MEMORY 


REPT 1 
wn IE ASEL ACTA AVTL ATTA ATILATILATILAT “ani ENN PE ACTA ACTA ACTA ATTA ATTA ATTA AT 
;* TH HIS S°IS THE NORMAL (SA = 200) BEGINNING OF THE PROGRAM. 

NOTE: THIS CODE IS NOT Oe tT EDK INDEPENDENT. 


;* 
"REPT 1 
A e\a/ NaS N\A NAS NZ NRL NRL ENR ENR NBS NR ENR NIRS ENR NR NR NR NE 
7 603744° 105067 176006 START: CLRB | SELFLG sCLEAR SELECT PARAMETER FLAG. 
8 130 03 BR STARTA :G0 DO SET MEMOR 
9 003/5¢ 112767 177777 175776 SELECT: HOVE 4-4, SELFLG “SET THE SELECT PARAMETERS FLAG. 
-SBITL. INITIALIZE THE COMMON TAGS 
, ;;CLEAR THE COMMON TAGS ($CMTAG) AREA 
003760 012706 001070 MOV #SCMTAG, RO >;FIRST LOCATION TO BE- CLEARED 
003764 026 CLR ( 6) »:CLEAR MEMORY LOCATION 
00 166 022706 001130 CMP 4SWR,R6 ;;DONE? ‘ 
003772 001374 BNE <6 ;;LOOP BACK IF NO 
003774 012706 001100 MOV ASTACK SP »;SETUP THE STACK POINTER 
; s INITIALIZE A FEW VECTORS 
004000 012737 000540 000024 MOV 4$PWRDN, QFPWRVEC ;;POWER FAILURE VECTOR 
004006 012737 000340 000026 MOV #540 ae UR VECs 2 ;;LEVEL 7 
004014 016767 006634 006624 MOV SENT CT ;;SETUP END- OF - PROGRAM COUNTER 
ss SIZE FOR A HARDWARE Matte rectsier. IF UND OR IT IS 
-:EQUAL TOA "-1" SETUP FOR A SOFTWARE SWI aan OER TSTER. 
004022 013746 000004 MOV abERRV C(SP) i #SAVE ERROR VECTOR, 
004026 012737 004062 000004 MOV 43 SOOUs , OHERRV -SET UP ERROR VECTOR 
004034 012767 177570 175066 MOV SOSuR. Sun © setup tba A HARDWARE SWICH REGISTER 
004042 012767 177570 175062 MOV SOS Si :iAND A HARDWARE DISPLAY REGISTER 
004050 022777 177777 175052 CMP 4-1 @SWR -; TRY 10 REFERENCE HARDWARE SWR 
004056 001012 BNE 300623 -;BRANCH IF NO TIMEOUT TRAP OCCURRED 
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004070 


000176 
000174 


177777 


000004 
000004 


175232 
174646 
177777 
012722 
015444 


000042 
174672 
174576 





175032 
175026 


175073 
174776 


173634 
177746 


000004 


175536 


000042 


000001 
000176 
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SEQ 0034 | 


| ;;AND THE HARDWARE SHR IS NOT = -1 
BR 30001$ ‘BRANCH IF NO T THEQUT 
30000$: HOY #30001$,(SP)  ;;SET UP FOR TRAP RETURN 
30001$: MOV ;;POINT TO SOFTWARE SWR 
MOV sOISPREC OI DISPLAY 
30002$: MOV (SP RVEC ;;RESTORE ERROR VECTOR 
CLR sPASS ;;CLEAR PA ASS COUNT 
BITB SAPTSIZE , $ENVM si TEST USE STZE UNDER QAPT 
BEQ 30003$ ENON: -APT SW TCH 
500034 MOV %SSWREG, SWR tiNG ube APT SWITCH REGISTER 


KEKKARKAREKAKERE EKER EKEE EAE ERERER EKER ER AKESERAAEARERARAEEAEEKS 


ay DISABLE CACHE ELSE SIZING IS AFFECTED 
Fy ge-tSh) eV SAVE TIME OUT VECTOR 


MOV VE TIME OUT VECT 
MOV 6. -(SP :V SAVE THE STATUS 
MOV 430$ 4 ‘tv SET UP TIME OUT VECTOR 
CLR 6 s3V CLEAR T.0. STATUS LOC 
BIS —" :;V DISABLE CACHE 
BR 318 ::V CACHE IS PRESENT 
30$: ADD :iV RESET STACK POINTER 
31$: MOV (S656 +,6 ::V RESTORE 1.0. STATUS 
MOV SP)+.4 V RESTORE 7.0. VECTO 


R 
:WKeuseusenseassnceaiteesssusssdiasuscasenssisisseneansassussasenss 


;;VK SIZE FOR KDJ11-DA (11/53) PROCES 
Lasers nec «= emi eeemennneneneneenannannnns 


CL 

MOV #4, -( SP) 
MOV $' 984 

MOV 94177750 ,RO 
BIC te tteh RO 
CMP #100,R0° 

BNE 1 

MOV #-4 KDUDA 
BR 


1$: ADD 


2$: MOV (565. a4 
ee OE KDJL1- DA see a tem ay RERISIER cionner font 
;CLEAR DISPLAY REGISTER STORAGE LOCN 
L ODISPL oM CLEAR DISPLAY REGISTER 
.SBTTL TYPE PROGRAM N 


;;TYPE THE NAME e THE "PROGRAM IF FIRST PASS 
w-1 sFIRST TIME? 


INC 

BNE 30004$ BRANCH IF NO 

CMP #SENDAD, O42 — ; ;ACT- 1? 

BEQ 30004$ “BRANCH IF YES 

JSR R5 SPRINT 60 PRINT. Buy THE FOLLOWING MESSAGE. 

WORD  30005$ -ADDRESS OF MESSAGE TO BE TYPED 
-SBTTL GET VALUE FOR SOFTWARE sit iCh REGISTE 

TST 42 E WE RUNNING UNDER XXDP/ACT? 

BNE 30006$ -:BRANCH IF YES 

CMPBséSENV,, #1 ;;ARE WE RUNNING UNDER APT? 

BEQ 30006$ -:BRANCH IF YES 

CHP SWR, #SWREG 11 SOFTWARE. SWITCH REG SELECTED? 


3 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $GTSWR ROUTINE 











J 
e) 0-2 MEGAWORD 
T VALUE FOR SOFTWARE 
SH Hoe 
004344 eH 
0043 0403 
oa 112767 
004360 000405 
004374 
1401 004374 010700 
140¢ 004376 ithe 
Hs Bubs Baie 
Hi BIS ea 
He its Bir 
He Bue Bue 
at 4436 908731 
tate 4444 1402 
1414 004446 004767 
Hi 
14 
ei sue gu 
420 004462 02 
7 004464 077102 
i ga ga 
4 § 904500 900007 
14 : 004 4 000404 
14 ao48 bee LOS 
ri 0 004510 005267 
fi 
He Bes fr 
He Bae Ser 
1438 004 42 004767 
1439 004546 005267 
1440 004552 004567 
004556 023650 
re 
144 
1444 004560 012737 


000001 
014310 
000001 


004376 
173670 
000001 
174110 
001214 
000042 


000042 


or 


15174 


004630 
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174544 


174116 


000046 


173310 


174402 
000004 


000004 
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SEQ 0035 


! 
:& WIHTOUT USING A “TRAP” INSTRUCTION AS, CALLED FOR BY «« YSHAC +s 
MFPS Sp PUT THE CESSOR TATU THE STA 
CLRB © -1SP ‘iow BYTE CLE D TO INSURE KE RODE 
SR PC $GTSWR ;GO TO THE SUBROUTINE 
30006 § MOVB #1, $AUTOB ;;SET AUTO-MODE INDICATOR 
BR 30004$ ;;GET OVER THE ASCIZ 
4, 300058 -ASCIZ <CRLF>'CVMSAB! <CRLF> 
MOV PC RO ;GET CURRENT PROGRAM COUNTER. 
9$ CMP #9$, = RO ‘CHECK IF THE PROGRAM IS RELOCATED. 
BEQ 10$ :BR IF PROGRAM NOT RELOCATED. 
JMP RESTAR “GO TRY TO RELOCTED BEFORE CONTINUING. 
10$: MOV oe PRGMAP ;INITIALIZE PROGRA 
12$: CLR RELOCF ‘INIT THE BELOCATION. PACTOR. 
TSTB = AB SENV CHECK FOR APT11 
BNE 13$ ‘BR IF APT11 
TST #42 : CHECK FOR STANDALONE 
BEQ 13$ ‘BR IF STANDALONE 
CMP #42 , a#46 “CHECK FOR ACT11 
BEQ ‘BR IF ACTII 
“MUST BE XXDP 
JSR PC, SAVLDR GO SAVE LOADERS 
;« CHECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS. 
-* INITIALIZE THE MEMMAP TABLE 
13s: HOV sHEMMAP, RO sLOAD D RO WITH MEMMAP TABLE ADDRESS 
14$: CLR Ro 85; iLOAD C0 MEMMAP TABLE ENTRY 
S08 R1,14$ :DECREMENT COUNTER 16. TIMES 
SIF COUNTER NOT = 0 THEN CLEAR NEXT ENTRY 
CLR LSIFLG sINIT LSI-11 /2/QUAD PROCESSOR FLAG 
MOV $15$ ,RESVEC ‘FIND OUT IF LSI-11/2/QUAD 
MFPT sMEPT INSTRU CTION WILL CAUSE TRAP 
BR 16$ - 11/23 aR LA LATER WILL BRANCH 
15$: ADD #4 : -LSI-11 RETURN, CORRECT STACK 
INC LSTFLG ‘AND SET LSI-1172 FLAG 
-« CHECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS 
16s: CLR MMAVA SCLEAR KT AND 22 BIT ADDRESSING FLAG 
BIT #SW12, OSWR ;CHECK FOR INHIBIT KT11 SWITCH 
BNE NONKT ‘BRANCH IF SET 
MOV 4NONKT,O#ERRVEC ;SET UP TIMEOUT TRAP VECTOR 
CLR a#SRO ‘CLEAR MEM MGMT STATUS REGISTER 
JSR PC MMINIT “MEM MGMT INITIALIZATION ROUTINE 
IN “SET MEM MGMT AVAILAGLE FLAG 
JS R SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
‘WORD  MMAMES :ADDRESS OF MESSAGE TO BE TYPED 


;* CHECK IF 22 BIT SYSTEM AVAILAB 
MOV w22$,QvERRVEC ;5 
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052767 
004567 
023715 


000445 


SOBUVIAVOR 


022702 


001100 
001514 
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004706 


037777 


000004 
160000 


170000 
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LUE FOR 


CLR a#0 ;CLEAR LOCATION 0 
MOV #10000 QSKIPAR2 ;SET PAR2 TO LOC bear + 2 
BIS 114, a : TURN ON 22 BIT ESSING 
MOV 4-1, 9440000 ;NOW. WRITE TO LOC 128K + 2 
TST a#0 IF LOS 0 = 0 
Bre BaeR3 : UTEE 98 BIT SYSTEM, DISABLE 22 BIT ADR 
BR KTSIZ : AND GO 13 MEMORY 
-* TIME OUT TRAP TO HERE OR MEMORY EXISTS AT 128K + 2 
32$: BIS SBITIS,MMAVA ; ELSE SET 22 BIT FLAG 
JSR R5 $PRINT ;GO PRINT OUT THE FOLLOWIN MESSAGE 
“WORD = AVAL22 sADDRESS OF MESSAGE TO BE TYPE 
:"99 BIT ADR AVAILABLE” 


BR KTSIZ ;GO SIZE MEMORY 


5p RE RERRERERES EERE EAE EERE EE RA RERARERAAERE SEERA ERERALERAEEE KE EES 


i TINE WILL MAP MEMORY IN 8K SEGMENTS. SUPPORTS ONLY THE SIZING 
+« OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT. 
rr STORAGE USED: 
ie RO = MEMMAP POINTER ... LO 128K 
5 R2 = ADDRESS POINTER 
sk R3 = BANK POINTER ... LO 128K 
te FLG30K = 30K MEMORY FLAG 
i LITERALS: 
sk MASK8K = 37777 
5, RREKEEEKEREEEEEA ERASER AERA EREE EAA ERAREEERAEEE ES EERACEAEE EER EES 
NONKT : # sSET-UP THE STACK 
EMMAP, RO 9! UP MEMORY MAP PTR TO LO 128K 
CLR :SET ADDRESS PTR TO 0 
MOV So$rasERRVEC {SET UP TIME OUT VECTOR 
1$: MOV 835 Cro. rah AND WRITE ALL MEMORY 
BIT AMASKBK, R2 TF NOT 8K ARY 
BNE i$ : THEN CHECK NEXT 
BIS R3,(RO) ; ELSE SET BANK FLAG IN MEMMAP 
R 3$ D DO SOM 
-* TIMEQUT TRAPS TO HERE 
d$: ADD sRESTORE STACK POINTER 
CMP #160000,R2 -IF NOT 28K BOUNDARY 
BNE 20$ : THEN BRANCH 
BR 218 : ELSE SET UP POINTERS 
20$: ¢™ #170000, R2 -IF NOT 30K BOUNDARY 
BNE 22$ : THEN BRANCH 
INC FLG30K : ELSE SET 30K MEMORY FLAG 
21$ BIS R3,(RO) “SET BANK FLAG IN MEMMAP 
BR 43 “BRANCH ALL DONE 
22$ BIS SMASKBK , R2 ‘POINT TO LAST ADDRESS OF 8K BANK 
INC R2 :POINT TO iST ADDRESS OF NEXT BANK 
3$ ASLB = RB ;UPDATE BANK POINTER 
BIT 4BIT4,R3 IF NOT DONE WITH 32K 
BEQ 1$ ; THEN TRY SOME MORE 
4$ BR DISMAP “GO TYPE OUT MAP 


SEQ 0036 | 


ssscatuecssmsssponcissgsiontueaniatationeenmeninasens 
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GE 


VALUE SOFTWARE SWITCH REGISTER SEQ 0037 
1500 
1 s 5 SASAERSESEEAAASASESALA SAA SELES RACE AEAS SALES LEASE EE ALE «RES 
1 -* THIS ROUTINE WILL MAP MEMORY IN 8K SEGMENTS. MEMORY MANAGEMENT REGISTERS 
1 -& KIPAR2 AND KIPAR3 ARE USED TO MAP THE 8K BANKS OF MEMORY. 
1 -&# IF MEMORY EXISTS NEXT TO THE 1/0 PAGE (I.E. 760000 OR 17760000) 
1505 :& THEN THE LAST BANK WILL BE ACKNOWLEDGED AS EXISTING. 
1 5 STORAGE USED: 
1 : = MEMMAP POINTER 
1 8 ; R2 = ADDRESS POINTER 
1 : R3 = BANK POINTER 
10 * KIPAR2 = MAPPED T0 1ST 4K OF PRESENT 8K BANK 
“ KIPAR3 = MAPPED TO 2ND 4K OF PRESENT 8K BANK 
151 * LITERALS USED: 
i i 2 MASK8K = MASK OF 8K (37777) 
4 es KREAKKCAKALKALKLEKELELALCEL ELAS SEALCAALALKRASESEALALASELESESELEAKAKKELEES 
i 13 760 012706 001100 KTSIZ: MOV aSTACK, SP sSET-UP THE STACK 
A Bathe See Bass Oy Heooonds” i TaRTON™ agg? {B°S'HAOPED nu pan 
t is 774 858499 ert: CLR SOR ToARD -INIT PAR2 TO CORRE 
i 905000 1273 000200 172346 MOV #200, 92K TPARS ;SE1 PAR3 TO 2ND 4K BANK 
220 06 012737 005034 000004 MOV 43¢ Q8ERRVEC ;LOAD TIME OUT VECTOR 
: 005014 012703 000001 1$: MOV #BITO,R3 sSET-UP 8K BANK POINTER 
¥ 9 011222 2$: MOV (R2),(R2)+ sREAD AND WRITE ALL MEMORY 
y 2 paises 037777 BIT SPE ae bs -IF NOT 8K BOUNDARY 
6 : 001374 BNE 28 ; THEN TRY SOMEMORE 
10 BIS 3,(R0) ; ELSE SET BANK FLAG IN MEMMAP 
8 052 000424 BR 5$ sAND GO UPDATE VARIABLES AND CONTINUE 
0 -« TIMEQUT TRAPS TO HERE 
034 062706 000004 $$, ADD #4 SP sRESTORE STACK POINTER 
40 02670 060000 CMP #60000 ,R2 ‘IF NOT POSSIBLY THE I/O PAGE 
44 01 BNE $ ; THEN EST SOME HORE 
4 00 1e7 173464 TST MMAVA ; ELSE IF 22 BI ADDRESSING 
5 40 MI 4$ ; THEN GO SEE IF 2M 1/0 PAGE 
é 2737 007600 172346 Mp #7600, ¢KIPAR3 ; ELSE IF NOT 1/0 BOUNDARY FOR 18 BITS 
62 1010 NE $ HEN GO UPDATE VARIABLES AND TRY SOMEMORE 
: 0 10 BIS R3,(RO) ; ELSE SET BANK EXISTS IN MEMMAP 
? 66 000433 BR 7$ ‘AND GO TYPE MEMORY MAP 
00 070 022737 177600 172346 4$: cHP #177600, d#KIPAR3 -IF NOT 2M 1/9 BOUNDARY 
7 1002 NE 5$ ; THEN GO TRY SOMEMORE SIZING 
1543 005100 050310 BIS R3,(RO) ; ELSE SET BANK IN MEMMAP 
1544 005102 000425 BA 7$ :AND GO TYPE MEMORY MAP 
t 104 062737 000400 172344 5s: ADD #400, 94KIPAR2  ;UPDATE MAP TO NEXT 
1 112 062737 000400 172346 ADD #400. 93KIPARS ; 8K BANK 
1 8 120 012702 040000 MOV #40000 ,R2 “RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK 
00 Lea 005767 173406 TST MMAVA iTF NOT 18 BIT ADOR 
0 00403 BMI 6$ : THEN GO TEST SOMEMORE 
09 136 6303 ASL R3 :18 BIT ADDR. = 1 WORD 
134 001331 BNE 2$ sIF NOT END OF 18 BIT ADOR 
i 07 BR 2 EEN RP AONE ta Br T SIZING 
1555 008148 303 é$: ASL R3 ‘UPDATE BRK PG hit 
1556 005142 001326 BNE 2$ IF NOT END OF THIS MEMMAP ENTRY, THEN CONTINUE 








LLL LLL LLL LILA LL LR, 
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Bee OE UE FOR SOFTUARE SUTTCH RECISTER y - SEQ 0038 | 
1557 005144 062700 000002 ADD’ #2 RO ; ELSE UPDATE TO NEX MEMMAP ENTRY 
i 005130 0 2700 001554. CHP aHEMMAP +40 ,RO :IF NOT END | OF HEMMA p tA LE 
0 : ELSE ALL SONE STPING 
‘ca 000400 7$: BR DISMAP ‘GO TYPE OUT MEMORY MAP 
i 4 ss * KAKAAKAAEAKKAEALALAE CAAA ALESL EE LALELALELELESRE AAAS AEEAAKEEEKLEAELSE 
1565 * ROUTINE WILL TYPE OUT MEMMAP, LOAD TEST MAP (SAVTST) AND CHECKS 
i : WEST 16K OF MEMORY IS AVAILABLE FOR TEST TO RUN 
i CP OR AGE” HEE ATTONS. 
1 § : “f = MEMMAP POINTER ... LO 128K 
t 0 R = = SAVER POINTER ... LO 128K 
: 7 jesssesssssssassesesssensusntassssasasacicassessssssssseseseaes 
72 005160 012700 001514 oy MOV SMEMMAP ,R LOAD RO WITH MEMM 
157 o1e73! 023430 000004 MOV SERRTRP. SPERRVEC od TIME out VECTOR 
1574 2 567 014554 JSR R5, PRINT HE FOLLOWING MESSAGE. 
76 023742 -WORD MEMMES : ADDRESS | TO BE TYPED 
1575 005200 004767 011622 JSR PC, TYPMAP ‘60 TYPE T 
123? 04 004567 014542 JSR R $PRINT iGO PRIN 1 OUT. the FOLLOWIN MESSAGE. 
10 001171 ‘WORD © SCALF RESS rhe HESSAGE T0 YPED 
77 12 012702 001614 | MOV aSAVTST,R2 ‘LO SAVIST TABLE TO BE CLEARED 
18 6 0 700 001514 MOV 4MEMMAP RO LOA OF REMAP TABLE 
7 701 000020 MOV LOA RUN 
0 6 0 1$: CLR cR 2) CLEAR Wie : TABLE ENTRY 
| 0 MOV RO)+,(R2)+ ‘LOAD SAVTST FROM MEMMAP 
1 } SOB Ri,1$ iDEC MENT CT TR Bt: TIMES 
600 174254 MOV MMAP RO sLOAD RO H OF 1ST 128K 
0 700 177774 BIC #177774, RO MASK ALL BUT BOTTOM 16K 
5 44 026700 000003 cH 43 RO :IF BOTTOM 16K IS ALL THERE 
1 39 : 004567 014474 JSR R5 SPRINT iGO PR T OUT THE FOLLOWING MESSAGE. 
4022 WORD INSUFF RESS OF MESSAGE TO BE TY 
005260 000000 HALT ie hURST OR HAL = 
sMEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM 


- SBTTL MAP PARITY REGISTERS 
5 REGKERRERASESEEREEREREEEEREAES SEES EASE SEES EERE SESS ESE EE REELED 
- SEARCH FOR PARITY REGISTERS PRESENT TYPE ADDRESSES OF THOSE FOUND 
;* THAT ARE FUNCTIONAL AND HAVE CORRESPONDING PARITY MEMORY 
5 RRREAEARERAEAE EEE AAEERE ERA GEES EREE EASE ES EE EE EE ES EE ES EE EE EE EE SE 


en lee 

en ee el, ee 

B08314 008773 000000 mii bear CNG BEN PARITY REGISTER EXIST. 
005320 012324 ' TF TH DOESN’ J GXIST. A TIMEOUT Tene te PARTTY REG EXIST TABLE. 

B59 OossS2  ObOROA ; "  E3kIP TIMEOUT SERVICE CODE 


ey ed ed ed ee ed aed eed ed aed eed ed ed ed oe eee 


S 


;* TIMEOUT COMES HERE 
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SAP PARITY REGISTERS , al : SEQ 0039 

1609 005324 706 000004 GMPRB: ADD $4 ,SP :RESTORE STACK POINTER 

6 0 %0 Sj Ghote! BIS 1 (R3)+ iSET FLAG 10 INDICATE REGISTER NOT PRESENT 

21 GMPRBA: MOV #17. ,R1 iL OA RaENI RY Rr 

6 GMPRC: CLR (R3); Ne GPR TAB E 

613 005342 0 S38 SOB R1,GMPRC oe ECREEN so CONTE NITNUE 

614 LEARING Mah ED. 

6 5 005344 020327 003372 CMP R3, #MPRX HAVE WE cheek FR Un GISTERS? 

i, Sais 7 mm ge PSE East nme 

6 3430 000004 HOV aERATRP, wane” SebtOe PCATCHE aie: anneners 

i BNE MP AMEM iv iYES - pana fe “Contr aL PRESENT 

a 014356 JSR R5 $PRINT ;GO PRINT OUT T FO Lou Ne HESSAGE 
74 024103 “WORD MTR : ADDRES 23 HE SSAGE 
6 376 005014 GMPRD: CLR (R4) Ah HEH RT ABLE I REGIS heel 
1684 008400 000167 000744 "SMP MANUAL sAND SKIP ALL CONTROLS TESTING 
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MAP tar “feMORY — ai 


SEQ 0040 


.SBTTL MAP PARITY MEMORY 






1636 i MAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY. 
;& =6MAP CORRESPONDENCE EN PARITY REGISTERS ERS AND 
630 :« AND TYPE RESULTS. get aia 
te :# REGISTERS PRESENT, THEN WRITE E TEST L ATION Vik + DATO & REA TES] 
16% :# LOCATION VIA DATI THEN CLEAR PAR ty IN ALL Is RS. 
: & THAT IF PARITY MEMORY if NOT LOCAT oe RRECTLY 
4 i$ IT 1s IN ALL PROBABILITY. DUE TO ONE OF THE FOLLOWING 
‘4 : ITs WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN 
e = ‘ Brat Y GENERATE PROTECT LOGIC F Agee 
6 6 i - PARITY ERROR BIT FAILED TO SET 
i = - PARITY BIT IN MEMORY LOCATION FAILED 
0 vs I.£. BIT STUCK AT GOOD PARITY VALUE 
164 5 STORAGE USED: 
i64e :* RO : HEMMAP & P & PHEMAP TABLE INDEX 
ead i¢ R = = ADDRE ae RITE WRONG PARITY TO 
1646 ‘s Ra : = ADDRESS, Ge" PRE SENT MPR TABLE ENTRY 
1248 8 sascongnstistbeieests ea Ill ssatanamncassssssns 
005404 767 011262 APAMEM: JSR sINITIALIZE ALL PARITY REGISTERS 
16 0 00 10 012702 014000 HOV any 0 R2 ga ADDRESS TO 14000 TO WRITE WRONG PARITY 
6 : egy e BEQ ; EN GD MAP ory 
012702 054000 MOV Be ACRO,R ak: 1 ADDRESS POINT R TO MAP THRU PAR2 
! : a 6; Snares 005346 JSR pC, wean sSET UP MEM MGMT REGISTERS 
012703 001654 MAPRB: MOV #PMEMAP ,R3 sLOAD PMEMAP TABLE ADR 
ee ee = ek 
£53 $8 44 077402 $08 4.i$ iGLE NOT AONE CLEARING THEN TRY SOMEMORE 
4767 011220 SR PC CLRPAR :GO INITIALI ALL wpARITY REGISTERS 
fete Gy oe eee 
i664 $8 60 StS sOR 000001 MOV ans Ri INIT BANK POINTER 
703 002272 $: V SMPRO,R3 sINIT MPR TABLE ADDRESS POINTER 
te6$ 88 OTS S04 $3: V R3,R4 sUPDATE TO NEW TABLE 
ise 00 060504 ADD R5.R4 “UPDATE INDEX THRU NEW TABLE 
713 000001 BIT SBITO,(R3) SIF CSR IS NOT PRESENT 
ert 88 004021 BNE 4$ ; THEN GO TRY AGAIN 
ere 00 01 001766 000000 MOV SWAP a(R3) ; ELSE T WRITE WRONG PARITY BIT 
te7a goseis 005715 my hg}. CR TED WRONG PARITY 
1675 00 ot 001766 000000 BI aSWWP, ACR3) CLEAR LOTTE WRONG PARITY BIT 
676 005773 000000 TS R3) -IF NO PARITY ERROR 
16/ 00 400006 BPL 4 ; THEN REGISTER D S NOT CONTROL THIS MEMORY 
18 2763 070032 000042 MOV #70032 ,42 RS} : ELSE SAVE THE PARITY MASK IN TABLE 
167 00 030460 001654 BIS R1,PMEMAP(RO) ;SET BANK IN PME 
1 114 BIS Ri. (R4) “SET BANK IN MPR 
1 09 062703 000044 4s: ADD 4 R3 -UPDATE TO NEXT 
1 022703 003372 CMP 4MPRY RZ ; IF NOT END OF 
1683 00 101345 BHI : THEN TRY SOME 
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SEQ 0041 
1684 005556 011212 MOV (R2),(R2) ; ELSE CLEAR BAD PARITY 
i 00 005767 172752 S$: TST MMAVA SIF NO MEM MGMT 
1 1417 BEQ ; THEN ATE FOR 16 BIT SYSTEM 
8 737 000400 172344 ADD #400, 08KIPAR2 ; ELSE UPDATE PAR2 TO NEXT 8K BANK 
301 ASL Ri sUPDATE BANK POINTER 0 NEXT BANK 
te BNE 7$ IF STILL SOME TO K IN 5 12 BANK THEN DQ IT 
169 00 06 100 0002 ny #2,RO ELSE UPDATE INDEX FOR MEMMA PMEMAP TABLES 
£69 7 02 D $2'R5 “UPDATE INDEX FOR GPR TABLES 
169 09 0 of 104 000001 MOV 4BtTO, Ri s INIT BANK P POINTER 
000040 | CMP #40,RO sIF END OF MEMMAP 
1695 905620 001415 13 BEQ 9$ ; THEN GO TYPE MEM PARITY MAPS 
| 96 00 BR 7$ :GO TRY SOMEMORE 
69 040000 6$: ADD #40000 ,R2 UPDATE ADDRESS TO NEXT 8K BANK 
SE LEH cote ae I og 
os nate BNE — iTF DONE WITH 16 
703 005640 036001 001514 7$: BIT MEMMAP(RO),R1 :IF BANK DOES NOT EXIST 
1704 aa 8 804945 BEQ 5$ . THEN paar BANK 
1706 005646 000706 | BR 2$ ; THEN GO DO SOMEMORE 
if ; 005650 000167 000000 9$: JUMP TMAP :GO TYPE PARITY MAPS 
i716 _SBITL DISPLAY PARITY MEMORY MAP 
7 5p REARS RREERERAEAAEEEREREAASALERRERESSRAKERAAERAAAAERASARERE EERE LES 
i112 sk ROUTINE TO TYPE MAP OF WHERE PARITY MEMORY IS PRESENT AND WHICH 
1713 4 CONTROL Ree Ses CONTROL WHICH MEMORY. 
1715 tf RO - FIRST DRESS OF MAP 10 BE TYPED 
1716 i Ri = PARTTY  PPeTeTER R ADDRESS .. S 14-0 
i 5 Re = PARITY Y REGISTER DRESS - Btre 21-15 
17 8 5 R = MPR 
7 leesseuseussessanssussassouseanenssuuseussusssuseanceessuasenss 
1126 00 54 004767 011012 thap usp PC. CLRPAR sINITIALIZE ALL PARITY REGISTERS PRESENT 
721 60 00456/ 014066 JSR R5 $PRINT iGO PRINT OUT THE FOLLOWING MESSAGE. 
005664 023760 ‘WORD = MTMAP : ADDRESS OF MESSAGE TO BE TYPED 
1722 005666 012703 002272 MOV #MPRO,R3 ‘INIT MPR TABLE POINTER 
4 7 713 6v0001 1$: IT #BITO, (R3) sIF THIS REGISTER IS NOT PRESENT 
gg see tt es NE 68 iF TEA GG TRY AGATR 
72 00 es: 
: 00800 004567 014046 JSR R5 $PRINT :60 PRINT OUT THE FOLLOWING MESSAGE. 
005704 024367 “WORD | OMXi ;ADDRESS CF MESSAGE TO BE TYPED 
SUPARTTY REGISTER AT” 
1728 005706 011301 MOV (R3),R1 ‘SAVE PARITY REGISTER ADDRESS 
17¢9 005710 042701 100000 BIC #100000,R1 -DEVELOP BITS 14-0 OF REGISTER ADDRESS 
1730 00 14 005767 172616 TST MMAVA IF TYPE OF MEMORY MANAGEMENT 
1? 720 1004 BMI 3$ ; THEN 22 BIT BRANCH 
1? 00 7 ; 001006 BNE 4s ; OR 18 B1i BRANCH 
17 724 (Ol 02 000001 MOV #1 .R2 ELSE 16 BIT SET BITS 21-15 FOR PRINT OUT 
1734 005730 00040 BR 5$ “AND GO TYPE OUT 











i D4 
cy SAB 0-2 ME MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 98:45 Page 7-2 
ISPLAY PARITY MEMOR SEQ 0042 
0057 12702 000177 3s: MOV #177,R2 ;LOAD BITS 21-15 FOR PRINT OUT 
Hi ee $h5405 BR 5$ ;AND GO TY pf ati 
1138 005740 012702 000007 4$: — MOV #7 ,,R2 sLOAD BITS 21-15 FOR PRINT OUT 
1741 905744 S$: 
744 010246 MOV R2,-(SP) +3 SAVE R2 FOR TYP TYPEQU 
;& THE NEXT TWO INSTRUCTIONS. PROVIDE AN INTE FACE 1S pits THE sTYPOs ROUTINE 
ik WIHTOUT USING A “TRAP” I INSTRUCTION AS ALLED FOR BY 1SHACs 
005746 106746 | MFPS = - (SP UT THE PROCESSOR ST Tus. STACK 
005750 18066 000001 CLRB ©: 1(SP sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
005754 004767 015220 JSR PC, sTYPOS GO TO THE SUEROUTINE 
760 003 Cs. >; TYPE 3 bronT Sy 
1742 SOS7E> 010186 pyre a1, -(SP) VE RY FOR TYPeOnTTS 
+ TOE ADDRESS BITS 14-0 
:& THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE T0 THE $TYPOS ROUTINE 
i WIHTOUT USING A. “TRAP* INSTRUCTION AS CALLED FOR BY 4#SYSHAC+s 
005764 106746 MFPS CSP) :PUT THE PROCESSOR STATUS ON THE STACK 
005766 105066 000001 CLRB  =-«AC SP sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
005772 004767 015202 JSR PC, $TYPOS sG0 10 THE, SUBROVTINE 
77 005 ‘BYTE 5 :; TYPE 5 DIGIT(S 
00577 001 "BYTE i :: TYPE LEADING ZER 05 
1743 006000 004567 013746 JSR 5 SPRINT ;60 PRINT OUT THE FOLLOWING MESSAGE. 
006004 024415 -WORD = MX2 sADDRESS OF MESSAGE TO BE TYPED 
744 006006 010300 V R3, RO ‘CET UP RO FOR TYPMAP ROUTINE 
{748 naaist 869900 000002 D g2-R0 :POINT TO MAP ENTRY FOR MPR TABLE 
1746 006014 004767 011006 JSR PC. TYPMAP :GO TYPE MEMORY COVERED BY THIS REGISTER 
1748 6020 062703 000044 6$: ADD #44, R3 sUPDATE TO NEXT REGISTER IN TABLE 
74 ope024 022703 003372 MP AMPRYX, R3 sIF NOT END OF MPR TABLE 
1 0 006030 101320 HI i$ ; THEN DO SOMEMORE 
7 012700 000010 MOV #10,R0 sLOAD DELAY 
1736 gosose 12700 conn. =, ty a0. LAD BLY 
12 604 077104 8S: SOB R1,8$ -ALLOW DELAY TO INSURE PRINT OUT IS 
17 6044 077004 SOB RO,7$ sCOMPLETED BEFORE RESET OCCURS 
17 6046 005737 003372 TST SEMPRX sIF PARITY REGISTERS TO TEST 
17 é 52 001002 BNE —‘CTRLS . THEN GO TEST 
tee 000167 000270 JMP MANUAL ; ELSE JUMP OVER TESTS 
He 
176 -SBTTL TEST PARITY REGISTERS 
Wee a3 i CHOW THAT BITS 0 2S. 11 AND 15 OF EACH PARITY REGISTER PRE 
t4 5 * SHOM W THAT BITS 0 - 11 AND 15 OF EACH PARITY REGISTER PRESENT 
1766 -« CAN BE SET AND CL CARED 
176 -« THIS IS A ONCE ONL y aeST. 
1768 PP RS 8. i. , Oe 
| 1770 006060 012703 002272 CTRLS: MOV 4MPRO, R3 iL OAD INITIAL TABLE ADDRESS FOR A POINTER 
| 1771 006064 011302 i$: MOV (R3),R2 -GET CSR ADDRESS INTO R2 








= - 


| £4 
| TERS 
iris 1 00) 052 se 
L115 Goelde S014 
L719 Gpelia 905042 
318 Set ta O16) 173366 
1780 Oopted 901405 
oe ps'e dh Y 011712 
17 ¢ 0061 tte 173346 
i ied rt 001025 
1784 006142 010012 
1785 O06148 011201 
1188 0061 Bae Tbr 173332 
1788 G06 58 02000 
61 00140 
006160 004767 010572 
asd bo 004767 011654 
a06170 000061 
1788 6172 011201 
+493 doe! 74 04690 173306 
1736 bbe 2 00476 105 
Bees eS fied { 011632 
1794 Soest 006300 
1795 Ooeel6 OOLMe 
1738 oD6928 039703 003372 
+738 006230 003315 
1795 
180) 
1809 
1804 
HB Bee fan 8 
1808 44 032714 000001 
1810 001003 
ie 00 s 012774 177777 
1 E 00 adhe 000044 
St 006264 0764 
1814 $6 000005 
1815 0 012702 002272 
1338 74 $136 003372 
1817 006300 2 
tt! eed Saris 000001 
1819 006306 101 





—-  — a mm ——— ee eee ee ee Se ee 


173404 


000000 


30008$: 


2$: 


1065: 


300095 : 


300108: 


300115: 


3$: 
105$: 


a 


ORD 


SSLSH=xGomMNHoLoMe 
DODK— K—MAODDOO— De o< 


Own 
=r 


#BITO,R2 

105$ 

42(R3) ,RESRVD 
105$ 

(Re 

RO) RI 
KESRVD,R1 


2$ 
PC, SPRNT 
PC, SERROR 


1 
RO,RESRVD 
RO, (R2) 
R2),R1 
Rd 
ESRVD,R1 
RO 

30010$ 


PC, SPRNTO 
s SERROR 


(Ra) Rt 

RES VD, Ri 

PC, SPRNT 
PC, $ERROR 
RO 
2$ 
#4423 
gHPRX, RS 


Te ta | 


SEQ 9043 
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Fest PARITY REETS ' - 


ELSE IF CSR DOES NOT EXIST 
HEN BRANCH 
¥ EQ 10 0 


OT TE 

RO WITH 1ST BIT TO ESTED 

; INITIALIZE THE babtty RE FotER 

“READ THE CONTENTS OF THE PARITY REGISTER 
:CLEAR RESERVED BITS, IF EQ 0 


-SET UP VALUES FOR ERROR PRINTING 
;ekk ERROR *&& (GO TYPE A MESSAGE) 
“ERROR TYPE CODE. 

-IF THIS BIT IS RESERVED 
H AND DON'T 


BR T 
SE IT IN CS 


LOA 


x» 

2>mco 
DO 

a 


D 
HE 
RR 
F 
R xs ( 
T CODE. 
sMAKE SURE BIT WAS CLEARED OUT OF CSR 
sREAD THE CONTENTS or THE PARITY REGISTER 
. WHICH ARE RESERVED 


;** 

sERROR TYPE CODE. 

sROTATE TO GET NEXT BIT TO BE TESTED 
sBRANCH IF NOT DONE WITH ALL BITS 
sUPDATE PTR TO NEXT ENTRY 

;IF NOT DONE WITH TABLE 

; THEN TRY AGAIN 


gp RR ERERERKAAESA SESE LERACESE EERE ERAREEEEEEAEAEARERERES EKER REAR EES 


kik 
;* SHOW THAT RESET CLEARS BITS 0,2 AND 15 OF EACH PARITY REGISTER PRESENT. 


;* ALSO BIT 14 IN Eee IF MEMORY IS SET FOR 22 BIT ADDRESSING 


PARITY 


-« THIS IS A ONCE ONLY TEST. 
Suk doe kd dake tok cd dodo ek kak dk ek ck hk kk ek a ea KR A 


RESCHK: MOV 
1$: 


101$: 
100$: 
2$: 





#MPRO, R4 
#MPRX,R4 
100$ 
#BIT0, (R4) 
101$ 
#-1,9(R4) 
#44,R4 

i$ 


#MPRO,R2 
#MPRX, R2 


MANUAL 
#BTTO. (R2) 
300138 


;LOAD INITIAL TABLE ADDRESS FOR A POINTER 
; IF - OF TABLE 


: ELSE IF CSR DOES NOT EXIST 
; THEN BRANCH 

; ELSE LOAD CSR WITH ALL 1'S 
;UPDATE POINTER 

TRY AGAIN 

RESET THE WORLD 

LOAD INITIAL ADDRESS FOR POINTER 
IF END OF TABLE 

; THEN BRANCH 

; ELSE IF CSR DOES NOT EXIST 
33V THEN BRANCH 





| Fa 
CVNSAB 
EST PARITY REGISTERS 
1820 006310 017201 000000 


4 T2 9000 
Ss EA OE 
18 
1825 006324 00570 
1838 063 00140 

006 004767 010360 
006 004767 011504 
Be 40 000001 
006342 062702 000044 
006 000752 


NSKSses Fs 
se 
= 
Sg 
= 


See ee 


1831 


5g hy 106746 
006376 105066 000001 


age ANE STE EH 
1839 006412 001365 
1840 seth apt 013330 
{ ; ade 00667 013322 
HB Bae ies, 
Has eS a 
1 S 006446 066700 013276 
1 006452 012701 0000 
1850 dope 006016 
1851 0064 THe 
: Seri) coo 
Bae Bui 
1855 72 906310 
rt $ 006474 005316 
1857 006476 000773 
3 006500 012702 001514 
1 one 04 066702 013240 
1860 10 Q 10h¢ 
He Bay 
ope2 4 ety dl 013232 
006 024540 


we -- 





4$: 


30012$: 


30013$: | 


MANUAL : 


MANUL1: 


;* THE NEXT TWO INSTRUC 
;* eet | eae A "TRA 


a31777.(5P) 


1$: 


2$: 


3$: 


4$: 





ee 


: 
= oe 
S82 
Oo 
=) 
w 


x= 

tH 

Cc} 

—{ Isr 
> 


INR 
w 


BSSSRSRSESSENG 
pe Dd ee al ee © ee ee ew | nad al gC | 


WOODS SOUS W-i10Ww 


=O MHOODMMOMMOrao 
oaaA0lo- Oreo Hiwmw 


Pur SPOT 
= 
oO 


. ¢. 
» 


wm eee eee se 


98:45 Page 7-4 


0-2 MEGAWORD MEMORY EX MACRO Y05.02 Monday 23-Dec-85 


SEQ 0044 
AVE CONTENTS OF CSR 


mM 
ees 


4 


AYS READ AS ZER 

ae BY ESET 
Y 

t 

p 


000 DATA 
INTING 


wm 
swmah he w 


<S=0o 722 3z 
» < ORR K 


ODE. 


NTER 
K TO CHECK NEXT REGISTER 


oc 

= a] 

wo tv =< 

So wv 

on m 
—+ CoO 


—rm 
wm 
UwW-owm 


AMETER SETUP 


U PARAMETERS 


<NsSqQd Meir 


D 

THE $RDOCT ROUTINE 
Y *&SYSMAC4s. 

TUS ON THE STACK 
INSURE KERNEL MODE 


NHIAOOOortv 


ASK 

Se HIGH BITS 
ADDRESS INTO 
28K BANKS AND 
K BANK WITHIN 


1 

: 8 

E ae OF 128K BANKS INDEX 
A 


z—-2zOY 


F TEST TABLE 
LIGN 8K BANK COUNT 


DONE 
“a POINTER IN 128K WORD 
UNTIL COUNT = 0 
DONE 
FROM COUNT 
T ADDRESS OF MEMORY TABLE 


UST _LOCATED,SET IN MEM. TABLE 
NK EXISTS. ..REASK 


SO MMH POrmnmswer Pw Poze 


a. POM AH ae 
<aA +O 


OUT THE FOLLOWING MESSAGE. 
OF MESSAGE T0 BE TYPED 





4 


SEQ 0045 
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MEGAWORD MEMORY EX MACRO Y05.02 


TY REGISTERS 


2 


0 


34 
UO 
TEST PARI 





SS EST SOGRECNESESSAENEAS BEVERAGE CSENERARSS 
Sissssssssees 


SoS SS SSS ee Ses SSeS Se SSSS Ssssssssss 3333 





rH 
3 2. | og 
, a — = tu uJ lJ 
w z Ji wo i) 
ee _ a0 = Ss = = 
Oe rw & ait a be = ne w 
— = ow >< a ns> a= Ss 
SnoY 5S = Hs § re ——o wry 9 
se = x= © a a wx oni wzZzo zz =z 
lu #9) — coal w x azo « aoa Ww Hes Huo | 
_— aan oOo Ww WW we = ric we ui Z <O sz=mow = 
i ee) ogc Oo @® uJ wore poe wa. oO > oO 
coc ax WwW w Hc be OrHCLD z za JIOOa0 
oOo KO Wl MN Ze: ZO: wo Wwrecori — lr | Lie ao —jt— Ld — 
Kaur 2wm™ HHa © . ~—- Ox.) = oor 2 Zoow sx oOo ak oO 
a te w oOo = - => u = a a) — oO UWOaG wu 
Wil oO Nir -t— 2 oom x WNZworc nn Oo www <> oa 
oO iJ a ada a ee Ol On —- DMIWMD Www HOU wmwr-e cow wer se WwW 
: zone ONMDODHW = = il Pa ad Lid te mn = rMm2n = 
‘UW OoOoc cue OocYro Zz ORES «ca <x Soe ww wd ae 
Oe jw ve «re SSNSWO oe KH MOU >< Oow Wc =a w>z LJ 3 
Roo S45 wo tutu ww MrmuwDaw ww aor WoOoOY~o xare == — 
—ZrOWDMOO OBQISOTOe WOW Ene a | (ae nares. =O J <—D> eMetYe> 
eooe —- uJ Ora a=W OTF ei z <x a> VOOW OOo 
me Awww ON<= xc HD> eHrc cc HO Oro JMOrr-o La WLC <x Oow~ct 
S w— ee. Su - JO eS oeuvre Koa Jeoo cack —— ware 
a2 Re et eu Ot co Luks Es <x xO cru c >a. OZwnwrtnz 
x coz —- OO WWD x x 408 Oru ran oe ee ee 2p a Mowe re 
— z- nox~oxssse—svsgs4 Uozcorngor Omewt Dw =< ==z —orcul Kea 
Ww zrare oO OF JWI a nT she od OO RD <i —- = w ee wacm wa. 
SersSHheotutuuSfuuurS FPoSuuur.s Gwoezeuwwuu.8e Sa WOS=oWwO 
= = a. TOWORONRia OFHReHee NOWHHHH > NCCE SMM Or-HO ==zw eox> IO 
i 
— ia — 
ne wow = =z 
tH oO bee KH ri 
S am) Ww * + + ox ax ' 
He a oO oe wre ors a. a. 
-a. n~ ae Sau at <—t acc accu am a 
Ws wmxrw eer YU ox a ax x oe w Ww j 
Crh — Nae a orn - — a. . ot ora: ”~ ora: ow NM 
a a Oo wrox wo war sot w S @watést)tmtH aart+ Oo @waktse+ cu & 4 a) 
ATOS GeraoresuemeGeGESONeise WNpECONgREevonGgEatone Zn 
Ss “> wh “>~v> 
4 ood PORAanowteoTeees aco sa acd ast SSS SS SEs =o 
=r 
an oe 
Soe BneneSSerosreSameeCredtes yeaideEae ue SaetweSsS Woe 
2Sto SMSLSS PODBBOOLS Sr anoOwmoOoSS eS PRESS Seen SSSeSamane. :_ woz 
wx 
x 
— 
se ee ~~” wv on ~~” Po 
*+ + ” » ” wn ” oO 4 MN me La 
se ee wo wo f c ov — 4 — ed —i 
Oo 
~ 
a 
msm 
ed 
oO | 
— cy CU oat oO 
so? 3s 883 | lCU a oo ==, Koen 4 S 
S S YU soe mw 4 eS ~ m~—W mw +O HAS 
Ses 8s ww Ssss' 3s Ss 8 Sss sss Py o 
M-OOr-WlMwr-r- Mao “ACUCUCU- Mr om MOBHHOAMO4 ~ + M~rmwr~Pr ~ 
+8 PAP EPPS HS Sooneoonak SSonIN DOS NMOoNSoSNoo Www 3 wo 
Po Sh eA ee a eT IONS OS OF WKS OS ~~ MOI OOM inin em 
SS sSsssssiconouenccnes SuNssrouo suamiaeNss Sys 
4 ss Ssoeseesesssesyseses oo SslSss33 Sssssssssss S 
ct 
cucu 
wn 
Ss 


SESSESS aa SSS SSeS SSS SSS SSS ST TSS SST TSS 5 
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ST PARITY REGISTERS SEQ 0046 

006750 024620 .WORD CONST ;ADDRESS OF MESSAGE TO BE TYPED 
"SELECT CONSTANT: 
1912 . THE NEXT, Two INSTRUCTIONS PROVIDE AN INTEREACE TO, THE $R00CT ROUTINE 
-« WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY 

0067 106746 MFPS “C$P) -PUT THE PROCESSOR STATUS ON THE STACK 
006754 10 000001 CLRB  -:1(SP sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
006760 004 4767 012612 JSR $RDOCT ;GO TO THE SUBROUTINE 

1913 006764 Of ik 172774 MOV (58) 6. -CONST ;SAVE THE DATA 

1914 S61 0 ef f 000040 172132 MANUL2: BI] -  &5WO5; ASWR i18 VECTOR AREA PROTECTED? 

1916 007000 EELS 001000 172754 MOV #1000,FSTADR © ;1F YES,SET STARTING ADDRESS = 1000 

1918 


-REPT 
3/#\:/#\; Sehs JAN AN ARN TAN SRN RN AN TAN LN AN AN AN RN 2/8 


4 THe REST OF THE PROGRAM IS POSITION INDEPENDENT CODE, SO THAT “: CAN’ EXECUTE PROPERLY WHEN THE PROGRAM HAS BEEN AT 
= py was ts he SO THAT THE FIRST TWO BANKS OF MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE Rest BE NENORY . 
of e\m/  \a/ NaS NR NAS N\A ENR ENR NAS NR N\A NR \ NRA NR NR \ RS \ 8 
1923 bo4006 016706 172772 STARTL: MOV STACK, SP sSET STACK POINTER 
3 4 007012 012700 00002 MOV #20, ;SET UP TO LOAD 20 LOCATIONS 
925 igh 016701 172766 MOV SAVIST Ap sSOURCE TO BE SAVTST TABLE 
19 § 7022 016702 172764 MOV .1S" RS sDESTINATIION TO BE TEST MAP 
3 0070 bashes 1$: MOV (Ri), hat -INIT bathe TABLE 
3 7030 0 5 SOB 0,1$ sLOOP UNTIL DONE 
3 7032 04676 A118 18 172514 BIC PRGMAP TSTMAP ;DON’T TEST WHERE a IS LOCATED 
930 007040 012767 007006 172030 MOV “START, $LPA ;INIT LOOP ADDRE 
931 007046 pore! 511308 172022 ADD RELOCF, $LPA 
g Oe be 4767 rts JSR C MAMF sae UP MEMORY PARITY ERROR VECTOR. 
9 7060 005767 171452 TST MMAVA sCHECK FOR MEMORY MANAGEMENT AVAILABLE. 
1934 007064 001406 BEQ TSTi ;BRANCH IF NO MEM MGMT. 
8 tA 9 bre das 000001 177572 IT #BITO, @#SRO ;CHECK IF MEM MGMT ENABLED. 
936 007074 001002 NE TST1 ;BR IF MEM MGMT ENABLED. 
8 007076 004767 003676 JSR PC, MMINIT ;SET UP MEM MGMT REGISTERS. 
19 : .SBTTL SECTION 1: MEMORY ADDRESS TESTS 
1948 Fee etamar array et tata arte a 
s*TEST 1 WRITE VALUE OF MEMORY cng INTO MEMORY 
.* RO = DATA WRITTEN INTO MEMORY (SHO BE) 
3k Ri = DATA READ FROM MEMORY (WAS 
.& R2 = VIRTUAL ADDRESS 
;* R3 = NOT USED 
+ R4 = NOT USED 
7% R5 = BLOCK BOUNDARY BIT MASK. 


sKKKKKEEAAREREAE EKER EK EEAKAKERARAKEEEE AEE RERAAA EERE RAKE EERE EELES 


007102 téT1: 
007102 004567 010424 JSR $SCOPE ;GO TO SCCPE ROUTINE. 

1949 -« UPWARDS WORD RO DRESSING. 

1950 007106 004467 004044 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 

007118 O16 00 1s: MOV R2, RO -SET UP 10 CALCULATE PHYSICAL ADDRESS 

1952 00711 4767 005156 JSR PC: PHYADR ;GET PHYSICAL ADDRESS INTO RO 

1923 007120 010012 2$: MOV RO (Re) WRITE VALUE OF ADDRESS, INTO ADDRESS 

1954 007122 012201 MOV (R2)+, Ri -GET THE DATA FROM MEMORY UNDER TEST. 
007124 02000 CMP Ri ;COMPARE THE CHECK WORD WITH THE DATA READ. 
0071 140 BEQ 306153 ANCH OVER ERROR CALL IF GOOD DATA. 
007130 004767 007646 30014$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 








gi Wife VALUE OF EMORY “ADDRESS ESS INTO MEMORY re ae weer eee eo SEQ 0047 


——— a ee 


007134 004767 010704 JSR PC, $ERROR ERROR #*« (GO TYPE A MESSAGE) 
007149 000002 wines “WORD 2 aeRO TYEE CODE” 
1388 BE serene OD Rats TP RET REET ay, 
* 807156 854367 004214 JSR PC; MMUP sBRANCH IF HORE IN BBP O's: 
1388 -& CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY 
960 007154 004467 004074 peice: alae Mia 6) INITIALIZE THE MEMORY ADDRESS POINTERS 
196 H1e9 10260 3$: mith Ro’ SET U OTCALCULATE PHYSICAL” AD —s 
196¢ 7 ee 00 000002 SUB 45 | RO :GET PAS T ADDRESS OF BLO 
196 Bt 4767 005104 JSR PC PHYADR ‘GET PHYSICAL ABORESS INTO Ro 
1968 00/16 o14001 , 4$: MOV -(R2), Ri orPARE The CHEEK UR 
1965 00717 0 CMP RO Ri ‘COMPARE THE CHECK WOR WITH THE DATA READ. 
007 76 00140 BEQ 30017$ sBRANCH OVER ERROR CALL I F GOOD DATA. 
7200 004767 007552 30016$: JSR PC, SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 
7204 004767 010634 JSR PC, SERROR 3 #&s RROR #44 (G0 TYPE A MESSAGE ) 
f 19 0002 seit ‘WORD 2 “ERROR TYPE CO 
1966 007212 700 000002 " SUB #0 | 
1987 S081 OSTS sg a. 





| est weite Gate be 


1969 
007224 
007224 

1970 

i woes 

1978 007 36 

1974 007242 

1975 oe a4 

ti c 
uo 
198) 007528 
i 8s 
i aes 
Hs a 
1988 00 $00 
Se 
O07314 
1989 007314 
i 
1991 
1992 


007324 

007324 
1993 
1994 007330 
1995 007 e 
+aat 007 
1997 007342 
1998 007 
1999 007350 





ALUE 


— 


see 
“SMO Pret mths ta tuety pth pp 


OrD OANMNOCOCODO 


Sis SS 
pate tHt 


MEMORY EX MACRO Y05.02 
MEMORY ADDRESS INTO 


010302 
003722 
005034 


004410 


010202 
003720 


000002 
004730 
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SEQ 0048 


iitecT D WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 


;#TEST 2 


WRITE VALUE OF MEMORY ADDRES 
DATA iy AAS INTO AY CUAS (SHOUL 


INTO MEMORY 
BE) 


’ 
sKREKKSEKEEAREEEAAAAEAAE EERE EE AEAREREEREAERERARKAEAEKALAEE AE ALEES 


;GO TO SCOPE ROUTINE. 


s ENE TOL ZE_ THE rer y ADDRESS POINTERS. 
;9ET UP 10 CALCULATE PHYSICAL ADDRESS 
GET PHYSICAL Men Bere INTO RO 
sMAKE TEST COUNTER BYTE VALUE 


VA 
WRITE VALUE OF 5 ta INTO ADDR 
;ADD ONE TO PHYSICAL RBDRESS mi 


é RO = 
* Ri = DATA FROM MEMORY 
" Re = VIRTUAL ADDRESS 
;* . 
* R4 = NOT USED 
‘ R5 = BLOCK BOUNDARY BIT MASK. 
té12: 
JSR $SCOPE 
;« UPWARDS BYTE RO DRESSING. 
JSR R4, INITMM 
1$: MOV R2. 
JSR PC, PHYADR 
ASL R5 
2$: MOVB _—RO, (R2)+ 
INC RO 
SOB R5, 2$ 
JSR PC, MMUP 


;* DOWNWARDS BYTE ADDRESSING. 
JSR INITON 


S R4, 
3$: MOV R2, 
DEC RO 
JSR PC, 
ASL R5 
4s: MOVB -(R2), 
gone RO 
EQ 30019$ 
30018$: JSR Be 
JSR PC, 
.WORD 3 
300193: 
DEC RO 
$0 R5, 
JS PC, 


‘BRANCH IF MORE IN CURRENT “BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1 


* CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY 


;INITIALIZE THE ERY ADDRESS POINT 
sSET UP TO CALCULATE PHYSICAL ADDRES 
;GET LAST BYTE ADDRESS OF BLOCK 
GE PHYSICAL ADDRESS INTO RO 
sae TEST gis BYTE tae 
T THE DATA —" MEMOR 
‘BRECK T atk BYTE ONLY VALID. 
;BRANC at IF wae DATA. 
ERROR PRINTING. 
TYPE A NESSAGE) 


ERS. 
S 


iSET UP CUES 
sont 

ERROR T YPE- CODE. 

sDEC DATA BY 1 


;BRANCH IF MORE IN CURRENT BLOCK. 
sFIND NEXT BLOCK AND LOOP TO 3$. 


hee 
SS: 


at 
He DAT 
H OVER ER 
VA 
OR + 
YP 


5p REA AREA EE AR AEEE EER EERE ERAREA EE RESE RR AREER EE AREER EE EERE RE KES 
S COMPLEMENT VALUE OF Ts INTO ADDRESS. 


MEMORY 


KKK AAKERAAREEEEEAEEAREAKAEEARAARE ARES EERE EEERAREARESAELE SEALE RAL ES 


;GO TO SCOPE ROUTINE. 


;INITIALIZE THE MEMCRY ADDRESS POINTERS. 
sSET UP TO CALCULATE PHYSICAL ADDRESS 
;GET LAST ADDRESS 

;GET PHYSICAL ADDRESS INTO RO 
COMPLEMENT THE ADR 


s*TEST 3 ITE 
. ik RO = DATA WRITTEN INTO oN A, wanes 
ok Ri = DATA READ FROM 
7: R2 = VIRTUAL ADDRESS 
sk R3 = NOT USED 
=k R4 = NOT USED 
sk R5 = BLOCK BOUNDARY BIT MASK. 
tST3: 
JSR R5, $SCOPE 
:* DOWNWARDS we "ADDRESSING. 
JSR 4, INITDN 
1$: MOV R2 
SUB #e, RO 
JSR PC, PHYADR 
COM RO 
2s: MOV RO, -(R2) 


—_— eee ee 
eee | ee 


;PUT DATA INTO MEMORY 





Fea ee 


Fy OAe OTF T PS COMPLEMENT VALUE OF ADDRESS INTO KDDRESE’ oe SEQ 0049 | 


000 007 700 000002 ADD $2, RO ;+2 TO DATA--ADR GOES OM GOES UP 
001 007386 979504 SOB R5, 2$ sBRANCH IF MORE IN CURRENT BLOG ogee 
ain 7360 004767 004350 JSR pC: MMDOWN FIND NEXT BLOCK AND LOOP T 
$008 ;& CHECK COMPLEMENT DATA WRITTEN DOWN 
904 -* UPWARDS WORD ADDRESSING 
5 007364 004467 003566 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
006 007370 0 0200 33 V R2, -SET UP TO CALCULATE PHYSICAL ADDRESS 
007 007372 67 004700 JSR PC, PHYADR ;GET PHYSICAL ADDRESS INTO RO 
008 007376 5100 i COM RO ;COMPLEMENT IT 
7400 01 MOV R2)+, Ri ;GET THE DATA FROM MEMORY UNDER TEST. 
Marts ante CMP RO. Ri ARE THE CHECK WORD WITH THE BRIA READ. 
007404 06 405 BEQ 30021$ ‘BRANCH OVER ERROR CALL IF 6000 DATA. 
BOT41S OOdTE7 010436 0020s: J3h PK. SPRNT2 :SET UB VALUES FOR ERROR PRINT ING. 
sit 300082 notte ‘WORD 2. reas ERROR #08 (6 
0 0074 700 000002 " SUB #2, RO OUNT POuN WITH ADDRESS 
Sots 007434 495700 SOB R5, 4$ ary tty MORE IN CURRENT BLOCK 
7426 004767 003736 JSR PC, MMUP ait NENT BLOCK AND LOOP TO 3$. 
5otg Seecr a LTTE RAM @ TTD Mil Annpreere IN A AK BA 
-&TEST 4 WRITE BONK # INTO ALL ADDRES SES IN A 8K BANK 


s RO = DATA WRITTEN INTO MEMORY iene 
;* Ri = DATA READ FROM MEMORY (WAS 

;* R2 = VIRTUAL ADDRESS 

;* vl USE 

;* USED 

;* = BLOCK BOUNDARY BIT MA 


PO REP cE, - SI 


74 téta. 
TEE 004567 010074 JSR SSCOPE ;GO TO SCOPE ROUTINE. 
014 i UPWARDS BYTE RODRESSTNE. 
\ 1436 004467 003514 JSR INIT sINITIALIZE, THE ME THE HEMORY ADDRESS POINTERS. 
7442 004767 004726 1$: JSR PC, BANKNO ;G NT fo 
0 7446 606305 ASL R5 HAKE TEST NOUNTER BYTE V LUE 
; 745 i 22 2$: MOVE RO, (R2)+  ;WRITE BANK # INTO ALL ADDRESSES 
01 007456 750 SOB RS. 2$ “BRANCH IF MORE IN CURRENT BLOCK. 
se 7454 004767 003710 JSR pC: MMUP  ;FIND NEXT BLOCK AND LOOP TO 1$. 
0 :« CHECK THAT DATA WRITTEN ABOVE CAN BE READ 
= UPHARQS BYTE ADDRESSING. 
007460 004467 003472 JSR R4, INITMM sINITIALIZE THE MEMORY ADDRESS POINTERS. 
1464 004767 004704 3$: JSR PC, BANKNO HE BANK ER INTO RO 
025 0074 0 006305 ASL R5 cele! TEST COUNTER BYTE VALUE 
0 " 7472 112201 4$: MOVB R2)+, Ri ‘READ THE DATA OUT OF MEMO Y 
0 007474 0001 CMPB Ri ;CHECK DATA....LOW BYTE ONLY VALID 
028 007476 00140 BEQ 304233 ‘BRANCH OVER ERROR CALL IF 00D DATA. 
007500 004767 007260 30022$: JSR PC, SPRNT1 SET UP VALUES FOR RROR PRINTING. 
007504 004767 010334 JSR pC; SERROR « ERROR #44 (60 TYPE A MESSAGE) 
007 19 000003 = “WORD ‘ERROR TYPE COD 
2029 007512 07751 SOB R5, 4$ -BRANCH IF MORE IN CURRENT BLOCK 
00 ii 50476 003650 JSR pC: MMUP = :FIND NEXT BLOCK AND LOOP TO 38. 








ee a Suid 


pe 
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FY WOIFE Toe CORPLEMENT OF BANKS. , - SEQ 0050 


} 
TEST 5 WRITE 1‘S COMPLEMENT OF BANK #. 
* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
. Ri = DATA READ FROM MEMORY (WAS 
: R> = VIRTUAL ADDRESS | 
: R3 = NOT USED 
-* R4 = NOT USED 
; R5 = BLOCK BOUNDARY BIT MASK. 
7520 ee ee a 
00 : 
7 7 010006 JSR R5, $SCOPE ;GO TO SCOPE ROUTINE. 
ooRs = ri ness a ee “a ADORE SST TBN INITIALIZE THE MEMORY ADDRESS POINTERS 
h) 7 $ opa7e) 004640 1$: JSR PC; BANKNO ;GET THE BANK NUMBER INTO RO 
0 ‘, 007 30 ASL R5 :MAKE TEST COUNTER BYTE VALUE 
é 7 1 COM RO :¢'S COMPLEMENT OF BANK # 
7 310042 2$: MOVB RO, -(R2) PUT bie COM OF BANK # INTO MEMORY 
8 007542 02 SOB § sBRANCH IF MORE IN CURRENT BLOCK. 
ae 7544 004767 004164 JSR PC, MMDOWN ;FIND NEXT BLOCK AND LOOP TO i$. 
840 »« CHECK THAT DATA WRITTEN CAN BE READ. 
7 004467 003500 ms or as att ADORE SO INITIALIZE THE MEMORY ADDRESS POINTERS 
7 2 004767 004614 3s: JSR PC, BANKNO tM tHE fink # INTO RO 
4 007560 006505 ASL R5 ‘MAKE TEST COUNTER BYTE VALUE 
045 7 005100 COM RO ;SET 1'S COMPLEMENT OF BANK ¢ 
6 7 114201 4$: MOVB -(R2), Ri :READ DATA OUT OF MEMORY 
7 0001 CMPB 0 Ri :CHECK DATA...LOW BYTE ONLY VALID 
8 007 140 BEQ 30625$ sBRANCH OVER ERROR CALL IF GOOD DATA 
7572 004767 007160 30024$: JSR PC SPRNTO ;SET UP VALUES FOR ERROR PRINTING 
7576 004767 010242 JSR PC, SERROR seas ERROR sas (GO TYPE A MESSAGE) 
007606 000003 nei WORD 3 “ERROR TYPE CODE. 
2049 007604 077511 SOB R5, 4$ sBRANCH IF MORE IN CURRENT BLGCK. 
a 004767 004122 JSR PC, MMDOWN ;FIND NEXT BLOCK AND LOOP TO 3$. 
- TF PROGRAM HAS RELOCATED 10, UPPER BOUNDARY THE ADDRESSING 
i TESTS WILL BE EXE ED FOR ALL BANKS AND WORST CASE NOISE TESTING 
-« WILL BE LIMITED TO BANKS 0,1. 
0 * ALL OTHER BANKS WILL BE EXERCISED FOR WORST CASE NOISE TESTING 
0 -« WHEN THE PROGRAM OCCUPIES BANKS 0,1. 
7 032767 000001 170714 SECT2: BIT #BITO,PRGMAP = ;IS PROGRAM RELOCATED 
5 : op 7e4e atest BNE 2$ - IF NO. CONTINUE TESTING ALL BANKS 
0 007 012700 000020 MOV #20, RO iCLE ALL LOCATIONS OF TEST MAP 
3 } saboe! 172160 - HOY ASTMAP Ri -TEST MAP TABLE 
063 007634 077002 SOB Rods ;LOOP UNTIL DONE 
4 007 016700 171752 MOV SAVTST.RO -GET LOWER 128K MAP 
se Sitees Siooe! 1H ae ec hg 
3 7652 2$: ‘CONTINUE TESTING 
$5 SBTTL SECTION 2: WORST CASE NOISE TESTS 
071 : s REREEERERASARERESE EASA LE ESSERE ERAS EASE SESE SELEAARELELELE EELS 
2072 -& THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
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SECTION 2: ° WORST 


0076 
207 1° 
2017 oie 
207 7670 
7672 
2080 
2084 
7676 
767 
5 18 
6 901 
77 
H 
77 8 
7724 
7730 
77 
208 77 
77 
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SEQ 0051 

;* MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ. 

:  REAk eee KeeA EASE EA ERAE AE EAEE EERE SEES EEE ES EEE EEE EE ERED EE EEE 

i ye $o<«% °° %  %  emmmegemmeenmeeeen 


| 

-&TEST 6 ITE A CONSTANT INTO MEMORY 

- THE CONSTANT IS USER SELECTABLE (DEFAULT = 0). 
- RO = DATA WRITTEN INTO MEMORY ¥ A SHOUL 
ot Ri = DATA READ FROM MEMORY 
i R2 = VIRTUAL ADDRESS 
- R3 = 
-* sz 
;* 


NOT USED 
= BLOCK BOUNDARY BIT MASK. 
jpsocoaocooonssonnoossonconsssseseses cesesenssssonsnnsasonenonens 
TST6A: 


1$: 


;GO_TO 
;GET_US 
age Hag i TAaRESS Pats. 
‘PEND. NEXT BLOCK AND OOP. ots. 


5 RRRRRAERERAEEA EA ERAEAREEARSS REA LERERAEEEEE SEEGER EASE EL ES ES EE EES 
5*T Y AND COMPARE TO 
;* IMPORTANT: 


BOEING A R pe 


THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST $TN. 


a ee 

JSR R5 $SCOPE G0 T0 SCOPE ROUTINE. 

MOV CONST, RO =T USER CONSTANT 
” JSR R4, INITMM INITIALIZE THE MEMORY ADDRESS POINTERS. 

MOV R2)+, Ri GET T DATA FROM MEM R TEST 

CMP is 1 RF NPARE 4 HECK WORD ITH HE DATA READ. 

BEQ 306275 - BRANCH ove " satin CALL IF GOOD DAT 
30026$: JSR PC SPRNT2 iSET UP VALUES FOR ERROR P RINIT 

JSR pC; SERROR RRR #28 (GO TYPE A SSAGE ) 
siiating WORD 4 TERR TYPE CO 

SOB R5, 1$ sBRANCH IF MORE IN CURRENT BLOCK 

JSR pC sE IND NEXT BLOCK AND L P 10 18. 
;« SPECIAL CHECK TO SEE IF TEST 6 Is SELECTED THRU THE SWR. 
-« ALLOWS THE PERATOR TO SWITCH BACK AND FORTH yBETHEEN TESTS 6 AND 7 
-« BY SIMPLY "TOGGLING” SWOO WHEN SWO1, SWO2, AND SWOS ARE SET. 

BIT #5408, aswR CHECK THAT LOOP ON TEST BIT SET 

EQ T 120 ‘BRANCH IF NOT LOOP ON TEST 

MOV as -(SP) ; ET SWITCH REGISTER DATA. 

BIC #177740, (SP) CLE NON-TES -NUMBER SUI TCHS 

CHS 46 SP)+ ; HECK IF TEST 6 IN SWITCHES. 

BNE TST10 RANCH IF NOT TEST 6 

SUB 1 $TSTNM ESET TEST NUM 

SUB aTST7-TST6, $LPAD R ESE! -£00 OOP ADR 

BR A G0 10 TEST 6 


s KEEREARASESALAAESEASERAKERERESEEASESERESSE SEERA EEE ELSE SEEK EES 


4TEST 10 WORSE CASE NOISE (PARITY) WORD TESTING 
HECK MEMORY WITH A SERIES OF PATTERNS 
jisessendsnesssssesssnsnssssssansesascasnssnsnssssssecesssnsscens 


R5, $SCOPE ;GO TO SCOPE ROUTINE. 
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WORSE SEQ 0052 


ASE NOISE (PARITY) WORD TESTING 
2105 010010 016704 172014 MOV MPPAT, R4 sINITIALIZE PATIERN TABLE POINTER 
106 00 4 767 006020 1$: JSR pc CKPMER ;CHECK FOR NON-TRAP PARITY Y ERRORS. 
9124 MOV (Rd), RO ;GET THE DATA PATTERN. 
08 00 ; 417 BEQ STil -:BR-IF END OF TAB 
00 67 003126 JSR R4, INITMM ;INITIALIZE THE MEMORY A SS POINTERS. 
3110 00 ote 2$: MOV RO R2) PUT DATA PATTERN INTO 
11 00 1 MOV (R2)+, 1 -GET THE DATA Ron HEHORY UNDER TEST 
CMP 0 Ri ;COMPARE THE CHECK WORD WITH THE DATA READ. 
of 40 BEQ 30629$ -BRANCH OVER ERROR L IF FA : DATA. 
0 767 006736 30028$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR P NG 
0 004767 007774 JSR PC, SERROR :&&e ERROR #44 (G0 YPE A MESSAGES 
a 00 nen “WORD: ‘ERROR TYPE CO 
2112 77 SO R5, 2$ sBRANCH IF MOR URRENT BLO ck 
196 ood? 003310 JS PC, MMUP = :FIND NEXT BLOCK mt LOOP TO 2 
2113 010060 000755 BR 1$ ‘BR BACK TO DO NEXT PATTERN 
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VISA TRIER Moe BIT THROVGH A FIELD OF ONES . - 


2115 es * £2664604664666 4644606666446 4626460646446 464066646 6646440462464 444664444 4404448 
TEST 11 ROTATE A “0” BIT THROUGH A FIELD OF ONES. 
01 ee 
0 004567 007444 JSR RS $SCOPE 60, TO SCOPE ROUTINE. 
: 709 yr MOV #-{,  R0 ert ah oH 
76 JSR PC, SETCON OTS OF RO, IN afikk MEMORY 
8 7 67 0030 JSR R4, INITMM ‘INITIAL THE MEMORY aap NTERS. 
d in 1S: cL 9 amie ainsi CARRY BIT IN PSW 
, t 0 Hh 0050 OY -${R2), Ri GET RESULT, - —— 
§ cB 85 Ri aa SRE T HE CHEEK WORD” WITH THE DATA READ. 
4 E 30630$ tone Oe CALL IF GOQD DATA. 
76 006654 63s: JS PC, SPRNT2 T UP VALUES F OR PRIN 
10126 004767 007712 JSR PC, SERROR ass ERROR es (GO TY TYPE A MESSAGE) 
of i 000005 me ‘WORD «5 ‘ERROR TYPE CO 
2124 77 . R5, 1$ sBRANCH IF MOR URRENT BLOCK 
Ot ona7eS 003226 oe PC. MMUP = sF IND NEXT BLOCK TAN LOOP mi 1 
gig? Lt ane a et eo oy ae nes 
saTEST 12 ROTATE A “1” BIT THROUGH A FIELD OF ZER 
01014 psossonsoosacessoesesesessocsssansasosoonssosseoessssssnse | kat 
me ie go4567 007364 i$ RS. —_—SSCOPE s60.TD, stop RoUTINE. 
004767 004306 JSR PC, TCON ;PUT THE ENTS OF RO IN ALL MEMORY 
: aH 004467 esa nf : R R4: aaron METH He MEMORY ADDRESS POINTERS. 
; St Na see 004312 ; ma: PC ROTATE ise ROTATE: "1" Hy! art 
104 016201 177776 V -9(R2), Ri <GET RES 
i 0 @ 63$ sBRANCH IF ‘C’ IS CLEAR 
j 9200 RO Ri sCOMPARE THE CHECK WORD WITH THE DATA READ. 
16 4 Eg 30631$ sBRANCH OVER ERROR ALL IF D DATA. 
0 004767 006576 63$: JS PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING 
04 004767 007634 JSR PC, $ERROR :ae% ERROR «a (GO TYPE A MESSAGE) 
0 19 000005 sinee. “WORD «5 sERROR TYPE CODE. 
2135 010 15 077516 ’ SOB RS, 1$ BRANCH IF MORE IN CURRENT BLOCK 
010214 004767 003150 JSR PC, MMUP  ;FIND NEXT BLOCK AND LOOP TO 1§. 


= 


SEQ 0053 
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ey WORSE EASE NOISE PARITY BYTE TESTING SEQ 0054 | 
2147 sa oeeT 13, WORSE CASE NOISE PARITY BYTE TeSiita 
547 EST 13 WORSE CASE NOISE PARITY BYTE "rat 
-& CHE K PARITY MEMORY WITH A eRHES OF VTE RNS oR 
" 5 REA D IT BACK WITH A INE ENABLE SET, PRAAK 5 SURE THAT A RAP CURS 
;* 
; 3) WRITE GOOD PARITY AND tne ESURE {RiP ORe WHEN I I READ 
* 4) MAKE SURE THE ERROR ADDRESS BITS CSR BITS tf RR 
i¢ MG Prt ENABLED AND ABOVE i28KW,CH k? BIT14 a Br S <11-5> 
: © KKKEEEEKAKEDCAKACELCECALCACASLAEAEAEARAEAAAREEAKEAEKEESEEEEESEEEEEEEEESE 
010220 téT13: 
OL 0 004567 7306 JSR RS $SCOPE ;GO TO SCOPE ROUTINE. 
2148 4 9/67 173142 WWPBO: is HOR sCHECK FOR ANY PARITY MEMORY 
0 ; a397 7h 000100 170670 ert #SWO6, aSWR s CHECK FORTNHIBIT PARITY SWITCH. 
7 000760 1$: JMP TST14 ;SKIP THIS TEST IF NO PARITY MEMORY PRESENT. 
6 46 80 2$: CLR RO ohO TO BE PUT IN ALL MEMORY. 
O10 20 004767 004206 JSR PC, SETCON ;ROUTINE TO LOAD ALL MEMORY. 
i 004467 002676 JSR R4, INITMM SINITIALIZE THE-MERORY ADDRESS POINTERS. 
7 sRETURN EOR MMUP 
é 010260 006305 ASL sMAKE TEST COUNTER BYTE VALUE 
010262 012700 000020 WWPBYT: MOV s TABLE COUNT 
160 of 66 01670} 171524 MOV “Biter A: ;BANK POINTER TABLE 
2 01670 171516 MOV sPARITY TABLE 
316 010676 0 e125 1s: BIT (Rie, ras, ;CHECK IF CURRENT BANK HAS PARITY MEMORY 
0 Oot BNE -BRANCH IF PARITY MEMORY 
i65 Sosa 60S0> a TE NONE SN POINT BO TO 
166 +FTRST ADDR OF NEXT BANK. 
16 010306 000167 000704 JUMP WWPB6 -FIND NEXi BLOCK 
i § 10312 004767 005466 2$: JSR PC SETAE ;SET ACTION ENABLE (EVEN IF BANKO. ) 
10316 004767 005516 JSR PC, CKPMER sCHECK F ANY NON TRAP PARITY ERRORS. 
1 19 2 020 2! 000114 WWPB1: CMP Ro, $114 ;:CHECK IF POINTING TO PARITY ERROR VECTOR. 
171 010326 001 BNE 3§ -BR IF NOT AT VECTOR. 
7 010 062702 000004 ADD 24 R sSKIP PARITY VECTOR. 
73 0 162705 000004 SUB $4, R sSKIP PARITY VECTOR 
174 -SUBTACT 4 FROM TEST COUNTER 
75 010340 111201 3$: MOVB (R2), Ri sCHECK IF BYTE STILL CLEARED. 
176 010342 001405 EQ 30033$ sBRANCH OVER ERROR CALL IF. G D DATA. 
010 004767 006344 30032$: JS PC, SPRNT iSET UP VALUES FOR RROR PRINTING. 
010 004767 007470 JSR PC, SERROR -«&& ERROR ##& (GO TYPE A MESSAGE) 
010 000011 nee ‘WORD «11 ‘ERROR TYPE CODE. 
177 010 105067 171376 CLR OFFLG sCLEAR ODD/EVEN FLAG. 
18 31 112700 000252 MOV #952, RO :SET UP DATA...EVEN, SETS PARITY BIT. 
179 010 110012 WWPB2: MOVB RO (R2)  ;MOV DATA INTO TEST LOCATION. 
180 010370 016703 171430 MOV MPRX, _R3 -GET PARITY REGISTER TABLE POINTER. 
1 010374 056773 171366 000000 10$:  ®BIS WMP RS) «SET WRITE WRONG PARITY. 
18¢ 010402 52/38 000001 BIS BAE A(R3 
1 010406 113 TST (R3) sCHECK FOR TABLE TERMINATOR. 
184 010410 001371 BNE 10$ :BR IF MORE REGS IN TABLE. 
1 ;« SET WRONG PARTTY IN LOCATION UNDER TEST. 
186 010412 11001 MOVB ;WRITE SAME DATA (EXCEPT PARITY) VIA DATOB. 
213 010414 016703 171404 MOV MPRX, R3 sGET PARITY REG TABLE POINTER. 
188 010420 046733 171342 11$: BIC WWP, | @(R3)+ ;CLEAR WRITE WRONG PARITY. 
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WOR ASE NOISE PARITY BYTE TESTING SEQ 0055 
2189 010424 005713 TST (R3) -CHECK FOR TABLE Fenn NATOR. 
90 0104 oeas 4 BNE 11$ ;BR IF MORE Pan PARITY R 34 tek RS. 
4 ie % 4 171342 TST LSIFLG Stee IF R “we one ae pl-il/e 
9% 0104 1037 feta «(R2) PARITY TRAP LOGIC NOT RVATCROLE ON LSI11/2 
134 bt 0aa6 rr BR PBTRPL >SET PARITY ER ‘t WITH READ AN BY pase 
195 sPARITY TRAP TEST PA : Yt 
128 010442 016737 171360 000114 12$: MOV PBTRP, OSPARVEC. ;SET UP VECTOR FOR tt ED TRAP. 
19 ;* DETECT WRONG “PARITY VIA DATIO: DATOB SHOULDN'T EXECUTE. 
38 . +s VKRRRERRERRERE RARE AE AAA EAARERRERRAA RAE EE RAREAEAS KARAS EE EERE EEE EEE ED 
4 ;;VK CHECK FOR KDJ11-DA (11/53) PROCESSOR 
. ciatitin, cian «ian eens 
01 005767 171324 KDJDA 
ot tere erg 3 
1 10 Is TSTB R2) 
0104 005767 173260 TST START 
5 010464 00040 BR 1 
1) vageer gear. pepammaante: OF ee ay) CHECK kk kk kk kk kk hk kk hh edhe ek keas 
010466 105412 NEGB {R i DATOB AND COM PARITY BIT.) 
: “y “SHOULD HAVE : aoe TO PBTRP. 
09 010470 016737 171336 000114 i6$: MOV SRV, @#PARVEC ;RESET VECTOR FOR UNEXPECTED TRAPS. 
10 OF : 004767 on62? 30034$: JSR Bee SET UP VALUES FOR ERROR PRINTING 
oe 02 004767 007336 Shon PC, SERROR se OROR TYEE CODE TYPE A MESSAGE) 
+t 1 ahr 006156 JSR PC ,.CLRPAR sCLEAR ALL PARITY CSRS BEFORE NEXT BYTE 
010514 000167 000442 JUMP PB ;SKIP TRAP SERVICE. 


EXPECTED PARITY MEMORY TRAPS COME HER 
171306 000114 PBTRP ARVEC ; 


PWN 
MOORS 
CoOooO 
Aeror 


COooooCoQoooCoOoOoOOoOoOoOOoOoO 
pear a eae ar ar mr mary ar ar wary war ar war ary war ar 
RESSRISSOSS SSS SEF. 


CURSOS 


PWM OOe® SDN WO OO YM Wwilor 


fo leololelelejleoie/ 


p—2 p> p= po pe pp 


Kors 
S 


7 SPRNTO / 
JSR 
06 00001 12 E T 
WWPB4 
ok E. 
37 TRP: MOV PESRV, “RESET PARITY VECTOR FOR UNEXPECTED TRAPS. 
26 CMP (SP). CP): sRESET THE STACK POINTER AFTER, TRAP. 
03 171266 PBTRPL: MOV “MPRO, :GET PARITY REG AND MAP TABLE POINTER. 
33 000001 215: IT #BITO, (R3) ie IF THIS REGISTER EXISTS. 
p 22$ Fat DOESN'T EXIST. 
01 000000 MOV aCR3), Ri ONTENTS. 
i BMI 23g sel 1 HE OR FLAG SET. 
703 000044 22$: ADD $44, R3 ‘MOVE POINTER TO NEXT REG. 
020367 171244 CMP R3 -MPRX ;CHECK FOR END OF TABLE. 
103765 BLO 21$ “BR IF MORE REGISTERS. 
004767 006170 30035$: JSR PC, SPRNTO ;SET UP VALUES FOR ERROR PRINTIN 
004767 007252 JSR PC, SERROR ;#&« ERROR #4& (GO TYPE A HeSSAGE) 
000013 ‘WORD 13 sERROR TYPE CODE. 
000572 BR WWPB4 “EXIT AFTER ERROR. 
004567 005344 23$: JSR R5 PARMAT :CHECK FOR MAP OF THIS REGISTER 
000405 BR 24$ -BRANCH IF THIS PARITY REGISTER 
:CONTROLS THIS BANK. 
| “RETURN +2,ERROR ,CANNOT FIND MEM BANK 
-IN PARITY MAP TABLE. 
004767 006142 30036$: JSR PC, SPRNTP ;SET UP VALUES FOR ERROR PRINTING. 
004767 007230 JSR PC, $ERROR ;4« ERROR #%& (GO TYPE A MESSAGE) 
000014 - “WORD 614 “ERROR TYPE CODE. 
010046 MOV RO, -(SP) -PUSH RO ON STACK 
o} 00 MOV R2 RO ‘EET THE ADDRESS POINTER. 
2700 003777 BIC #3777, RO -CLEAR LOW ADDRESS BITS. 
000300 SWAB = RO “SHIFT 6 PLACES RIGHT. 





oon 





=> —_ A See ee 
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V MA 
ry WORSE FASE NDISE PARITY BYTE TESTING SEQ 0056 | 
2339 0106 006300 ASL RO 
4 Soeae7 167676 TST MMAVA sCHECK FOR MEM MGMT. 
4 0014 BEQ 25$ :BR IF NO MEM MGMT. 
43 01064 700 177600 BIC $177600,RO :CLEAR BANK BITS 
44 700 172 ADD ASKIPAR2 .RO :ADD MEM MGMT OFFSET. 
45 0106 27 2 BIT $B1T13, Re -CHECK FOR PAR3 REF. A RESSING 
46 06 4 BEQ :BR IF R2 IS ADDRESSING PAR? 
4 60 706 000200 ADD #300 ,RO sSET UP EXPECTED WITH PAR3 
4s 100 10000 25$: BIS 61 113+BIT0,R0 :SET ERROR AND AE BIT IN CHECK WORD. 
4 0 0 01636 000042 170610 MOV 42(R3), RESRVD ;GET APPROPIATE MASK. 
0676 046700 170604 BIC : -CLEAR PARITY REG Bris RESERVED FOR FUTURE. 
010702 046701 170600 BIC RESRVD, Ri :CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
sNOTE: THE ABOVE INSTRUCTION (2 WORDS CAN BE NOP‘ ED FOR UNATXED MEMORY TYPES. 
010706 02000 CMP 0 R sCOMPARE THE CHECK WORD WITH THE DATA READ. 
710 00140 BEQ sBRANCH OVER ERROR CALL IF GOOD DATA. 
10712 004767 006034 30037$: JSR PC, SPRNTP ;SET UP VALUES FOR ERROR PRINTING 
10716 004767 007122 JSR PC, SERROR jes ERROR +44 (GO TYPE A MESSAGE) 
O10 /¢¢ 000015 ane ‘WORD «15 “ERROR TYPE CODE. 
4 010724 005767 167606 TST MMAVA sCHECK FOR 22 BIT ADDRESSING 
5 0107 1000 BPL 100$ :BR IF 22 BIT ADDR NOT ENABLED 
0107 2 3 010000 172344 CMP #10000 , a4KIPAR2 s CHECK IF ABOVE 128KW 
107 0 BHI :BR IF KIPAR2 LESS THAN 128KW 
5 140 i 46 MOV RO, -(SP) ;:PUSH RO ON STACK 
0744 052773 040000 000000 BIS 8BiT14,0(R3)  ;SET BII14 TO ENABLE BITS 18-21 
0 sINTO BITS 8-5 OF PARITY CSR 
010752 013700 172344 MOV @#KIPAR2 ,RO sSETUP EXPECTED FOR PARITY CSR 
7 042700 007777 BIC #7777, RO BITS 18-21 STORED IN 
762 00 SWAB RO sBITS 5-8. 
010764 00 ASL RO -A18-21 IN BITS 5-8 
010766 052700 140001 BTS IT15!BITI4!AE,RO;SAVE EXPECTED PARITY CSR 
66 0107 017301 000000 MOV acR3), Ri sGET CONTENTS OF PARITY CSR 
077 01 030032 BIC #30032 ,R1 CLEAR MASKED BITS 
268 02000 Mp RO Ri sCOMPARE THE CHECK WORD WITH THE DATA READ 
140 BEQ 30040$ sBRANCH OVER ERROR CALL IF GOOD DATA. ~ 
1006 004767 005740 30039$: JSR PC, SPRNTP ;SET UP VALUES FOR ERROR PRINTING. 
011012 004767 007026 JSR PC, SERROR ;:%&& ERROR #&x (GO TYPE A MESSAGE) 
011018 0000 eae WORD “ERROR TYPE CODE. 
9 011020 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
1 005073 000000 100$: CLR a RS) -CLEAR REG INCLUDING ACTION ENABLE. 
1 010346 MOV R3,-(SP) : ;PUSH R3 ON STACK 
72 011030 062703 26$: ADD ehh, RB “UPDATE POINTER TO NEXT PARITY REG + MAP. 
Fy Ot toad atte — nh fisép3 eg Te EGS OP TRBLE REACHED 
$e Otiods a3e713 000001 BIT 4BTTO, (R3)  ;CHECK IF NEXT REG EXISTS. 
1 0 001 0 BNE 26$ -BR IF THIS PARITY REG DOESNT EXIST. 
He Seat Shoes [0000 a Sa a alae 
18 Shoes soese7 005670 30041$: JSR PC, SPRNTP ;SET UP VALUES FOR ERROR PRINTING. 
O11 004767 006756 JSR PC, $ERROR :x&s ERROR &#x (GO TYPE A MESSAGE) 
O11 000016 WORD 16 “ERROR TYPE CODE. 
0 011070 000757 BR 68 -BR AFTER ERROR. 
_— MPEBioste he ont inn Bk ro faetx'sY Bn eAlEE PAG canon, ou 
;* i ’ 
$3 -« ACTION ENABLE IS NOT SET IN CONTROLLING REG, SO NO TRAP SHOULD OCCUR. 





— ee ee 
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ad 


ASE NOI TESTING SEQ 0057 
84 011074 111212 MHOVB (R2) R2) aires TORE RIGHT PARITY 
5 _ NOTE: ABOVE IN INST RUCTTON NOP ED FOR PROCESSOR S 
Matai ONY BA TOR OM “Desh NAT TION OF F HOVE NSTRUCTIONS. 
011076 012603 MOV (SP }; RS CK INTO R3 
000000 MOV acR3), R READ He PARITY REGISTER TO CHECK IT AG 
Sho Orttoa Per (03% BIC RESRVD, Ri TF ERR PARITY REG Bite RES iRVE Bh 
;NOTE: THE ABOVE INSTRUCTION (2 WORDS CAN BE_NOP'ED FOR UNMIXED M 1 Tes. 
i 011110 042700 000001 BIC #hE, RO sCLEAR THE ACT.ON ENABLE qT INT 
29 4 02000 CMP Ri sCOMPARE THE CHECK WORD WITH THE RTA READ. 
14 BEQ 30043$ ‘BRANCH OVER ERROR CALL IF G p ATA. 
i 767 005626 30042$: JSR PC, SPRNTP ;SET UP VALUES FOR ERROR PRIN 
a8 004767 006714 JSR PC $ERROR iss ERROR #48 (GO TYPE A MESSAGE) 
30043$: 
3 O1 01275 000001 000000 MOV #1, A(R3)  ;CLEAR ALL BUT ACTION ENABLE. 
1 010401 MOV R4 Ri ;GET DATA READ FROM MEMORY FOR TESTING. 
5 42 00 MOV (SP)+ RO ::POP STACK INTO RO 
ie 0 CMPB 0 R ‘AHECK THE DATA. 
0 140 BEQ 30045$ ‘BRANCH OVER ERROR CALL IF GOOD DATA. 
004767 005602 30044$: JSR PC, SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 
ot 34 004767 006664 JSR PC SERROR ines ERROR tas (GO TYPE A HESSASE) 
011162 30045$: 
98 011162 110012 WWPB4: MOVB RO (R2) RESTORE DATA. 
38 ett e4 15915 TSTB)—s. CR2) :00 A DATI TO BE SURE RIGHT PARITY. 
0 012700 000253 MOV #255 RO SET ODD PARITY DATA. 
1 3167 170562 COMB FLG sCHECK IF DONE BOTH ODD AND EVEN PARITY. 
011176 10 02 BPL 27$ :BR Ir DONE BOTH EVEN AND ODD. 
O11 0167 177162 JMP WWPB2 :LOOP BACK AND DO ODD(PARITY BIT CLR). 
g SHER Hate fis. RO eat dl 
3 é 04 10 001402 BEQ WWPB ‘BR IF END OF BLOCK POU 
O11212 00 16 177104 JMP WWPB 1 ‘LOOP BACK TO TEST NEXT 
§ 0 004767 002146 WWPB6: JSR PC, MMUP  ;FIND NEXT BLOCK AND LOO 
004767 004512 JSR PC; MAMF —:GO RESET PARITY REGISTERS. 





— ili. 
—_—_ ee eee ee - 


Se ete a 
<A et ee te Spares aa, he MAMMAL LALLA LRA, LLL LLL LL LOL LLL LLL 


ere. , 2H... Ett. 


DATA WRITTEN ON TOP OF 4 BY THE TUT (SHOULD BE). 
A READ FROM MEMORY (WAS). 
ADDRESS OF IUT/DATA. 

INSTRUCTION UNDER TEST (IUT). 


VMSAB MEGAWORD MEMORY EX MACRO YOS. 3-Dec-85 98:45 Pace il 
1a. RANDOM BATA TESTING THRU pct Boe RELOCATION. - SEQ 00s | 
2311 ha = > my oy en en ree at pe mene apy more 
DATA TESTING THRU PROGRAM CODE RELOCATION. 
011226 esr de asnansabaneseepesteatisaaassnbartocenteseeesatasanaa 
011226 004567 006300 JSR R5, $SCOPE ;GO TO SCOPE ROUTINE. 
g 0 010708 RANTST: MOV pC R3 ;GET CURRENT PRO AM COUNTER 
0 2703 007777 BIC #7777, R3 sPOINT TO BEGINNING URRENT 2K K BLOCK. 
4 0 40 904467 001712 JSR R4, INITMM ;INITIALIZE THE HEHORY ADDRESS POINTE 
5 10 1$: MOV R2, . Eg :SAVE MEMORY POINT 
6 0 i 010 MOV R3, -(SP)  ;SAVE "DATA" POINTER: 
67 170516 MOV R5 TEMPi ;SAVE ADDRESS COUNTER 
6 ot o123e¢ 2$: MOV (R3)+, (R2)+  ;MOV CODE INTO TEST MEMORY. 
0 007777 BIT #7777, R3 :CHECK FOR END OF "DATA TABLE” 
0 0 62 00 902 BNE 3$ ;BRANCH IF MORE 
1 46 03 010000 SUB #10000, R3 :RESET POINTER TO START OF “RANDOM DATA“ 
0 0 507 3$: SOB R5 2$ ;IF NOT END OF BLOCK, BRANCH TO 2$ 
Ie 012603 MOV SP)+, R3 ‘RESET "DATA” POINTER. 
4 ot f of 602 MOV SP)+, R2 sRESET MEMORY POINTER. 
0 170470 MOV EMP1, RS ‘RESET ADDRESS COUNTER 
b of 012300 4$: MOV (RSs, RO :GET $/8 DATA. 
012201 MOV R2)+, Ri “GET THE DATA FROM MEMORY UNDER TEST. 
of 06 020001 p RO Ri (COMPARE THE CHECK WORD WITH THE DATA READ. 
140 EQ 30047$ sBRANCH OVER ERROR CALL IF GOOD DATA. 
11312 004767 005464 30046$: JSR PC, SPRNT2 SET UP VALUES FOR ERROR PRINTING. 
0 4767 006522 JSR PC, SERROR :#&& ERROR «a (GO TYPE A MESSAGE) 
3H ; 000020 — ‘WORD 20 ‘ERROR TYPE CODE. 
8 ott 4 032708 007777 BIT 777, R3 sCHECK FOR END OF "DATA TABLE” 
Be: 162708 010000 “ SUB #10000, R3 sRESET POINTER TO TOP OF “DATA TABLE’. 
011336 077517 SOB R5, 4$ sBRANCH IF MORE IN CURRENT BLOCK 
011340 004767 002024 JSR PC, MMUP  ;FIND NEXT BLOCK AND LOOP TO i$. 
-SBTTL SECTION 3: INSTRUCTION EXECUTION TESTS. 
ss itesT 15 EXECUTE DATT. DATO THRU MEMORY. 
-&T EXECUTE DAT. 
rs EXECUTES THE i TRUCT ON’ ‘BOVE Rae nthe) TepougHouT MEMORY 
+k AN RTS RS! ( 205) IS PLACED R THE ‘MOV’ INSTRUCTION TO RETURN 
+ CONTROL TO THE MAIN PROGRAM INSTRUCTION EXECUTION CHECKOUT. 
‘ TONS TE AN CXAMPLE OF CHAT THES TeeT DOES IN-RECATION 10 HEMORY: 
a 
‘ MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 
+ LOCATION PLACED THERE § AFTER INSTRUCTION EXECUTION 
* 1ST PASS / 40000 010412 000205 
* THRU TEST / 40002 000205 000205 
x 
* 2ND PASS / 40002 010412 000205 
‘ THRU TEST / 40004 000205 000205 
x 
x 
ra 
“4 
mM 
ce 


=) 
— 
“nue 
© 
> 
aa 








ae te. cc LLL LLL. LLL LLL LLL LLL LL, men 


SyESAe ore MEGAWORD MEMORY 
15 EXECU 


= 


. EF oT 


H5 


EX MA 
TE DATI, DATO THRU MEMORY. 


;* R4 = RTS RS (CODE 205). 
* R5 = 


BLOCK BOUNDARY BIT MASK 
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: AEKKEAAASEAAERAAAAAAEEEE EE REAEAERRAAEAEEAEERRRRRE RARE EA ‘E EE keaaE 


011344 TST15: 
ott 004567 006162 JSR R5 $SCOPE 
59 127 3 O1 aie DIDO: HOV #010412,R3 
Sit 8 6400 MOV R4, RO 
4467 001570 JSR R4, INITMM 
33 1$: DEC R5 
10 MOV R3, (R2) 
5 le 01041 2$: MOV Ra, Rd 
7 JSR R5 -(R2) 
7 00} MOV (R2)+, Ri 
4 ot CMP RO Ri 
4 140 BEQ 30649$ 
404 004767 005366 30048$: JSR PC, SPRNT3 
410 004767 006430 JSR a SERROR 
4 4 000021 scala “WORD 21 
2863 Sade SHE RB 
Stta5e 004767 001742 JSR PC, MMUP 


— ee ee ee 


;GO_ TO SCOPE ROUTINE. 
sGET ‘MOV R4,(R2)' INSTRUCTION (IUT). 
;GET S'. 
pr AL Te THE MEMORY ADDRESS POINTERS. 
ADDRESSES -1 
I ST LOC OF BLOCK. 
QWING IUT. 


TWO Mr OWOoG Tv VOrRwmM 


> -oOm 


INTO THE NEXT L 
IF MORE IN CURRENT BLO 
XT BLOCK AND LOOP TO 1 


7 


SEQ 0059 





X ' 
16 EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY. : SEQ 0060 


2396 5p RESKEAEEAAAEAA SA EAAR ER ERERAECAR ERA RE EARE ERASER AEARERERERARER LES 
16 | UTE DATI, DATOB (LOW BYTE) THRU MEMORY 
EXECUTES THE INSTRUCTION ' HO Ra, (R2)! _ THROUG UT HENGRY 
AN ‘RTS R5‘ (CODE 205) IS PLACED AFTER THE ' ' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXE 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELAT 
TIO 


=e @e @e @6¢ @e @e @e Se © @e St Ss Se Se Se Se Se Ge Se Se 
ce eeeenHHHHR HHH HHH HHH HH HH 
oo) 


HBS FER 


MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 

LOCATION PLACED THERE AFTER INSTRUCTION EXECUTION 
1ST PASS / 40000 110412 110605 
THRU TEST / 40002 000205 000205 
2ND PASS / 40002 110412 110605 
THRU TEST / 40004 000205 000205 


erc., Erc., EWC. 


DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
DATA READ FROM MEMORY (WAS). 

ADDRESS OF IUT/DATA. 

INSTRUCTION UNDER TEST (IUT). 


CODE , 
RS = BLOCK BOUNDARY BIT MASK. 


114 6 a i sce i ee ao ge mn aemanaianmaaes 
Stig 6 004567 006100 JSR RS §SCOPE ;GO TO SCOPE ROUTINE. 
97 011432 012703 110412 DIDBL: MOV #1140412,R3 sGET | MOVB R4,(R2)' INSTRUCTION (TUT). 
98 11436 012704 00020 MOV #505, Rd “GET ‘RTS RS! 
99 011442 012700 10605 MOV #110605, RO iSET UP S/B DATA AFTER EXECUTION. 
400 011446 004467 001504 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
9401 011452 005305 1s: DEC 5 ‘DO ALL ADDRESSES -1 
402 011454 010322 MOV R3, (Re) sPUT TUT INTO FIRST LOC OF BLOCK. 
403 0114 010412 2$: MOV 4; Re -PUT ‘RTS RS' FOLLOWING IUT. 
14 4542 JSR 5 -(R2) GO EXECUTE THE IUT. 
405 011462 0 e001 MOV CR2)-, Ri ‘GET THE DATA FROM THE MEM ADR UNDER TEST. 
406 011464 0 Of CMP 0 Ri ‘COMPARE THE CHECK WORD WITH THE DATA READ. 
0 1466 00140 BEQ 30051$ ;BRANCH OVER ERROR CALL IF GOOD DATA. 
011470 004767 005302 30050$: JSR PC, SPRNT3 ;SET UP VALUES FOR ERROR 
11474 004767 006344 JSR PC: SERROR aes OR &ax YPE A 
380 000021 nes ‘WORD = 21 “ERR 0 
2407 01150 010322 MO R3, (R2)+ ;PUT T 
2408 011504 077514 SOB R5, 2$ ‘BRANC 
1386 004767 001656 JSR PC, MMUP ss FIND 


T 
aa | 
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a 


MEGAW 


g 
SRARRRUEUNNE 


papers 


ne NetUTE DATI 
a ll 
a . 
f / : 
i Hie 
| : 
6 
gsi 
tT 


-_ - nee 


SS2 ssssgesseesscce 


PO 
Or MANOS 
SOrmM --J 


“SUI 


005212 
006254 


001566 


90 MEMORY EX MACRO Y05.02 
, CATOB (HIGH BYTE) THRU MEMORY. 


onde 23-Dec-85 98:45 Page 13 


iitecT 17, EXECUTE DATI. DATOB CHIGH BYTE) THRU MEMORY 


- &TE Td? EXECUTE DATI, ,PATOB.CHIGH BYTE), THRU MEMORY 
. EXECUTES THE INSTRUC ON''MOVB R Re), HROUGHOUT MEMORY 
-« AN 'RTS RS‘ (CODE 205) IS PLACED AFTER THE ‘MOVB’ NSTRUCTION TO RETURN 
-* CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECK 
i¢ THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 
i MEMORY INSTRUCTION CONTENTS F MEMORY L ATIO 
i* LOCATION PLACED THERE § AFTER INSTRUCTION EX 
-* 1ST PASS / 40000 110342 161342 
4 THRU TEST / 40002 000205 00020 
-* 2ND PASS / 40002 110342 161342 
:« THRU TEST / 40004 000205 00020 
;* 
4 ETC., ETC., ETC. 
* RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
-* Ri = DATA READ FROM MEMORY (WAS). 
iS OBS = INSTRUCTION UND gest (IUT). 
-* RG = ie Sane UNO ER 
-« R5 = BLOCK B Fae att MA 
jistutssessssnssssenensensessensinsassasssscsseassssenssanenscnss 
JSR RS $SCOPE ;GO_TO SCOPE_ROUTINE. 
DIDBH: MOV #1 10342,R3 :GET HOV R3,-(R2)' INSTRUCTION (IUT). 
MOV 5, Ra sGET ‘RTS RS’ 
MOV #161342,R0 :SET UP S/B DATA AFTER EXECUTION. 
JSR R4, INITMM ;INITIALTZE THE MEMORY ADDRESS POINTERS. 
1$: DEC :D0 ALL ESSES -1 
MOV R3, (Re +  =PUT TUT INTO FIRST LOC OF BLOCK. 
2$: MOV R4, R sPUT ‘RTS RS' FOLLOWING IU 
OR -2(R2) i60 EXECUTE THE IUT. 
C Re -ADJUST R2 TO POINT TO MAUT. 
MOV 2)+, Ri iGET THE DATA FRO THe MEM ADR UNDER TEST. 
CMP 0 1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 30053$ ‘BRANCH OVER ERROR CALL IF 6000 DATA. 
30052$: JSR PC, SPRNT3 ;SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :4as ERROR #x (GO TYPE A MESSAGE) 
oii ‘WORD 21 “ERROR TYPE CODE. 
MOV R3, (R2)+  ;PUT THE IUT INTO THE NEXT LOCATION. 
SOB R5, 2$ ‘BRANCH IF MORE IN CURRENT BLOCK. 
JSR PC, MMUP  ;FIND NEXT BLOCK AND LOOP TO 1S. 


SEQ 0061 





K5 
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SO CEXEFUTE DATI. DATIO. DATO THRU MEMORY. no”? - SEQ 0062 | 
2475 as ‘TEST 20 EXECUTE DATI. DATIO. DATO THRU MEMORY 

:&TEST 20 EXECUTE DATT., We thes9 ASHE 

4 EXECUTES. THE INSTRUCT 

-& AN RTS R5' (CODE 205 OF 5 PLACE MENS RUCTION TO RETURN 

:# CONTROL TO THE MAIN PROGRAM FOR INST RUCTTON PRECUTION HECKOUT . 

;# THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 

a MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 

‘4 LOCATION PLACED THERE § AFTER INSTRUCTION EXECUTION 

‘* 1ST PASS / 40000 005412 172366 

:# THRU TEST / 40002 000205 000205 

:# 2ND PASS / 40002 005412 172366 

:# THRU TEST / 40004 000205 000205 

i4 ETC., ETC., ETC. 


WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
READ FROM i all (WAS). 
ESS OF IUT/DATA 


;* R3 = INSTRUCTION UNDER TEST (IUT). 

;* R4 = RTS RS PB 

;* RS = BLOCK BOUNDARY BIT MASK. 

AKA AA EAE AREA RAGA RE RA RAEE AERA EARS EE REAE EE EEE EERE EERE SE 


011602 $120: 
7 004567 005724 JSR R5 $SCOPE : TO cop E ROUTI 

476 16 012705 005 i DIPDO- HOV #005412, RS iG 1! NEG (Re 2)' INSTRUCTION (IUT). 
47 161 0 $700 19386 MOV #172366, RO set uP 2/5 DATA AFTER EXECUTION. 
47 6 446 001330 JSR R4, INITMM ; NITTALIZE THE MEMORY ADDRESS POINTERS. 
480 0116 33 5 1$: DEC R5 :D0 ALL ESSE 
4 010322 MOV R3, (R3)s -PUT TUT INTO PeRsi toc OF BLOCK. 
4 0 0412 2$: MOV R4, ‘PUT ‘RTS R5' FOLLOWING IUT. 
4 4542 JSR R5 -(R2) G0 EXECUTE THE TUT. 

484 012201 MOV (Re), -GET THE DATA FROM THE MEM ADR UNDER TEST. 
485 4 O1 CMP 0 Ri iC PARE THE CHECK WORD WITH THE DATA READ. 
164 140 BEQ 30055$ ‘BRANCH OVER ERROR CALL IF GOOD DATA. 

011644 004767 005126 30054$: JSR PC, SPRNT3 iSET UP VALUES FOR ERROR PRINTING, 
01 004767 006170 JSR PC, SERROR ;#« ERROR #24 (60 TYPE A MESSAGE) 
O116 000021 re ‘WORD 21 “ERROR TYPE CODE. 
4 01032 MOV R3, (R2)+ ;PUT THE IUT INTO THE NEXT LOCATION. 
$489 Ft: SaLATS SOB R5, 2$ ‘BRANCH IF MORE IN CURRENT BL tBGK: 
11662 004767 001502 JSR PC, MMUP § :FIND NEXT BLOCK AND LOOP TO 











ai ee “a 
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FAD OEE UTE OAT. DATE. DATION. ATOR (LOW BYTES” THRU MEMORY: - SEQ 0063 | 
2513 ‘iteST D1. EXECUTE DATL. DATI. DATIO. DATOB (LOW BYTE) THRU 
tTEST EXECUTE ATI. DATI, DATIO, DATOR (LOW BYTE) THRU MEMORY, 
: & ExeCUTES, THe INSTRUCTION BICB (Re), tae 
fs AN RTS RS’ (CODE Re 81GB” INSTRUC ON’ 10 RETURN 





:# CONTROL TO THE MAIN PROGRAM FOR wel CTION EXEC UTION Che 
;# THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO Hen Y: 
5 MEMORY INSTRUCTION CONTENTS OF RY L ATION 
4 LOCATION PLACED THERE AFTER INSTRUCTION EX 
-* 1ST PASS / 40000 142242 142000 
:# THRU TEST / 40002 000205 000205 
-* ND PASS / 40002 14224 142000 
:# THRU TEST / 40004 00020 000205 
4 ve. a0e.. 22. 
:# RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
-# Ri = DATA READ FROM MEMORY (WAS). 
:# R2 = ADDRESS OF IUT/DATA. 
7 R3 = INSTRUCTION UNDER TEST (IUT). 
-* R4 = RTS RS (CODE 20 } 
-« RS = BLOCK BOUNDARY BIT MASK. 
 RKRKEAKEERAKKEAREKARELSESLEREREREALGAREEEES KEELES EEEEEEEEELEEKE 
011666 téT01. 
0 666 004567 005640 JSR $SCOPE ;GO0 19 SCOPE ROUTINE 
14 Hs 012705 L4ge4e DPOBL: HOV #1dg24e, #8 R3 iGE I BIC (R2)+, -(R2)' INSTRUCTION (IUT). 
700 142000 MOV #743600, RO set / ATA AFTER EXECUTION, 
i 11106 a08467 boi>a4 7 SR Rd, INITMM nae The te Y ADDRESS POINTERS. 
: rf 83393 MOV R3, (Re +  3PUT IUT INTO Pasi" LOC OF BLOCK. 
0 0117 b 10812 2$: MOV RA: Re sPUT ‘RTS R5' FOLLOWING IUT. 
17 4542 JSR R5 -(R2) iG EXECUTE THE IUT. 
1 ; 0 2201 MOV (R2)+, Ri ‘GET THE DATA FROM THE MEM ADR UNDER TEST. 
7 a2 0 CHP 0 Ri a ARE THE CHE K WORD WITH AD. 
17 405 EQ 30057$ ;BRANCH OVER ERROR CALL IF 
it? 004767 005042 30056$: JSR : SPRNT3 iSET UP VALUES FOR ERROR PRI 
0117 004767 006104 JSR . SERROR ;ae« ERROR #a« (GO TYPE A ME 
011740 000021 sien ‘WORD 21 “ERROR TYPE CODE. 
z504 OUINS 1032 ty S.-H TUT ro THe ex 
Bae SaRer 001416 JS pc: MMUP  :FIND NEXT BLOCK AND LOOP T 


——— 


VMSAB OO - 
22 





M5 
MEGAW 


D MEMORY EX MACRO Y05.02 Monday 
EXE UIE OAT 


, DATI, DATIO, DATOB (HIGH BYTE) THRU MEMORY. 


2551 


ATI, DA 
TON, ‘BI 
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u. gha)s Ra)” tna) 


aaNet 


PROGRAM FOR hetfasct on EXE UTION 


CONTENTS 
AFTER INS 


157212 
000205 


15721 


; ‘RTS RS’ IS PLACED A 
; CONTROE T0 THEM MAIN 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION 
MEMORY INSTRUCTION 
LOCATION PLACED THERE 
1ST PASS / 40000 ~ 15221 
THRU TEST / 40002 00020 
PASS / 40002 1522 
THRU TEST / 40004 538506 


Eth. « Eve.» EtG. 


ee oe ee ee ee ee te te 
é 


par READ FROM We ON TOP 


020 


OF iI BY THE IUT (SHOULD BE). 
al Y (WAS). 


‘iTEST 22, EXECUTE DAIL. DATI. DATIO. DATOB (HIGH BYTE) TH ee 


ie ExeCUTES rye INSTRUCT H OeHOU! BYTE Hom MEMORY . 


eat B TO RETURN 
RuCT 


Ss 


aac ieeaeie aaEaieans Ee netiete hedniehsnti taneeabansnenncnssencs 


oe 
at tlt ee, 


;PUT THE IUT ANTS THE 


;BRANCH 


Ri = DATA READ. 
tee 
R3 = INSTR R TEST CIUT). 
a ARTE age Hest 
ait 789 004567 005554 t8t22: Rs $SCOPE 
g O17 905385 153312 DPDBH: :t 212,R 
1762 012704 00020 
sae He Rh ie Boom | 
G 011776 005305 1s: Dee RS 
§ th b1o4i2 2$: MV Ra i) 
| : a mle. a . 
ee a oe 
767 004754 300588: JSR PC, SPRNT3 
$1502 004767 006026 YR PCS ~—sSERROR 
i 0 _s 30059$: — = 
$283 013032 EE a ee ae 
Si 34 004767 001330 JSR PC. MMUP 


IF MOR C 
sFIND NEXT BLOCK AND 


$C 


Me 
ana He The Hem AFT 


INTO 


TO 


TYPE. CODE. 


IuT. 


I st LOC OF BLOCK. 
Ms RS! FOL eta IUT. 





SUTRAS): INSTRUCTION (IUT). 


R EXECUTION. 
Y ADDRESS POINTERS. 


SEQ 0064 
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MOS TESTS SEQ 0065 
2 -SBTTL SECTION 4:MOS TESTS 
2 $ s3 j SESEELESEESESESEESESEESSES ESSE ESSE EESEEEEEEE EEE ED EEEE EEE CEES 
TEST 23 MARC 1! 
-* THIS TEST IS DESIGNED To, TRESS MOS MEMORIES. 
-& STARTING AT THE BOTTOM FSS AND ADDRESSING UPWARDS A 8K BANK M I 
-& WRITTEN WITH 000377 OREN TARTING Al THE 19 AD BANK HE 
-# 000377 IS READ, THE BYTES ARE SWAPPED TO 177400 LOCA T ON 
:& REREAD TO CONFIRM THE WRITE. THIS IS REPEAT ED FOR EVERY LOCAT TON 
:& ADDRESSED SOUNHARD UNTIL THE BOTTOM IS REACHED. : ARTING AT 
-&* BOTTOM EA geREND TD S READ FOR 177400, THE BYTES ARE Rare D FO 
-& 000377 AD CONF TRH THE WRITE UNTIL THE T DRES 
2% BANK IS RE EACHED AGAIN STARTI AT THE BOTT EACH 9 A TON 18 AD 
+S CONFIRM THe rT PARTLY STARTING FROM THE THPCAND ADDRESSING DOWN 
i GARD EACH LOCATION IS READ the as “SuAPPED WAPPE Mas 00037 RAB THs 
i+ LOCATION Ts PREAD 10 CONFIRM THE tie S IS REPEATED FOR EVERY 
i#8K ANK UNDER TEST. 
te RO=DATA WRITTEN INTO MEMORY(SHOULD BE) 
i Ri=DATA READ FROM MEMORY uA Si 
; Re=VIRTUAL ADDRES 
i R3=TIMES THROUGH COUNTER 
* R4=NOT USE 
* R5=BLO BUND BIT MASK. 
40 Se ee 
$f $40 004567 005466 JSR RS $SC PE ;GO TO SCOPE ROUTINE. 
9 4467 001106 JSR INITMM ;INIT T MORY ADDRESS POINTERS. 
9 10567 167716 100$: V Re’ ‘ TEMP1 , 
3 9267 167710 + HOY R ‘ TEMP AVE BANK STAR ADDRESS 
62 012700 000377 V 77,RO0 “SETUP TO WRITE PATTERN 
ae » BYE a a 
6 167674 V T + RS : ak TE 1 WORD COUNTER FOR NEXT PASS 
7 42 3$: V (Re ‘RI Ar A: | 
CHP Ri 0 W TH THE DATA READ. 
40 EQ 6618 2 
76 004672 30060$: J pte Pa 
° 767 005730 JSR ; SERN Og ee Re ese { 
0010 “WORD 1 
30061$: 
900300 4s: SWAB = s«RO an BYT ii OF DATA 
10012 V RO (Ra) WRITE si PPE 
12 MOV (Re Ri WRITEN 
CHP Ri Sine ate THe fe * TH THE DATA READ. 
40 Q 3$ ANCH OV hes 
7 46 30062$: JS ; SPRNT2 8 iSET UP VALUE 
004767 $ ye oot JSR $ERR int rue mag an 
10 “WORD 10 ERR 
42 300633: 
4° 3 WAB = RO UT DATA NGINAL 
0 ST R3 
8327 00000 25 
; 3 MP RS #3 
610 i S$: SOB R538 : iUPUAR p PASS? dp NOT THEN 3$ 
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¢ R3 ;IF YE EMENT PA «COUNTER 
6 ue (3 000004 ‘ $4 .RS ih ALL PAS HIS 8K? 
‘5 167576 V TEMP1,RS ‘Dest fest'c COUNTER FOR NEXT PASS. 

bie BR f Fete Done ss 
° 000002 6$ ADD &> RO AYE 10 NEXT 

8 ONE A P on 

0 1$: By (ha) Ri sa BRR meee 

i cH — 2 ek ARE T He CHE K WORD UZ WITH oN okt READ. 

Q 30665$ RANCH OVER E . . 7 
0 004560 300645: JSR PC, SPRNT SET Wb VALUES RROR PRIN 
767 005616 JSR PC. SERR RR (60 TYPE A NIN ) 
000010 “WORD 10 ERROR TYPE CODE 
0007 eed 4$ 
705 167534 8$: MOV TEMP1,R5 sRE EST WOR ER FOR NEXT PAS 

i o1e705 um i GEE ONL . 

G 612542 GE0I97 000002 pe te Rowse 

if 016708 167514 HOV TEMP ,R2 ie YES Re T gESS YO START 
oo 062702 040000 9s: ADD #40000 ,R2 Testis NS EADS WUT 2 porzon E BANK 

012262 042702 001000 BIC #1000, R2 POSSIBLE FIRST STARTING 
bbe 3 1000 WHEN VECTOR AREA IS 
2266 004767 001076 JSR PC ,MMUP BDA "NEW BANK IF EXISTS 

: ju Nets Sh 

0 5 KESESRESEA SESE SALE SAAS ALES ASAE LASALLE a pee > pero +> tai 


- THe Tests WRITE A CHECKERBOARD THROUGHOUT MEMORY STALL 
SME CERe eto venrY on HON 


; cg WRTTTEN INTO HEMORY( SHOULD BE) 
;* 
x 
a 


=VIRTUAL A ; SS 
=SMALL COUNTER FOR STALL 
R4=N R TIMES SMALL LOOP DONE 


R5=BLO 
cdi dk dk ek ck tk ke ek kk a kk a a ek aa ee a a RE 


303 2$: DEC R3 


01227 tito4. 
912272 004567 005234 JSR R5, $SCOPE ;GO TO SCOPE ROUTINE. 
b 76 67 000654 JSR RA INITMM sINTIZALIZE THE MEMORY ADDRESS POINTERS. 
6 02 012700 125252 MOV #125252 ,RO iSEI A PATTERN 
6 06 0 ee i$: MOV RO /(R2)+ ;WRITE A WORD 
6 10 COM RO ;COMPLEMENT DATA 
655 Of 077503 S0 R5, 1$ BRANCH IF MORE IN ¢ 
14 004767 001050 JS PC; MMUP  ;FIND NEXT BLOCK AND 
of 00 CLR R3 iSET UP COUNTER FOR 
ot D0 LOOP 46 TIMES OR 
01 


wow 


oon 


™ 





-- + ——-—— es — oe oe ee Oe oe 


co 
YO RFE RRECKERBOARD STARTING LITH 155255" BATA’ wee t> Page i7-e 
oo SLs sean ee 
: he goad? 000614 sR INITHH sINTIALTZE THE MEHORY ADDRESS POINTERS. 
p 012700 i2 - V $135252, DATA FOR CHECKING 
813380 03000 Ce ORGS OR orp ARE THE CHECK WORD WITH THE BRTA READ. 
01 14 BEQ 30067$ ;BRANCH OVER STD CALL If G00 ATA. 
ee ices Wie A ke at 
WORD 6 TERR type COD 
012366 30067$ : 
eee a 19 o775}2 OB Re 3$ sBRANCH IF MORE IN CURRENT BLOCK 
2667 7 oF on — sansaathcasesl hens asttS, gif iN NEXT BLOG’ AND ODP. 1B. 18 
SeTEST 25 WRITE CHECKERBOARD STARTING WITH 052525 DATA 
0: 16 ee ee ee ee 
015376 004567 005130 JSR RS, $SCOPE ;GO TO SCOPE ROUTINE. 
Pat: 00446 / 900550 JSR Ra cog FAITH sINTTZALIZE THE MEMORY ADDRESS POINTERS. 
e709 O1s4ie $16022 1$: HOY RO,  (R2)s PRITE A WORD 
5075 O154t6 393803 0B OR 1$ sBRANCH IF MORE IN CURRENT BLOCK 
: 38 0 904767 000744 SR PC MMUP iE IND NEXT T BLOCK’ AND AND LOOP TO 18. 
a St 426 13 04 000046 V #46, R4 ‘3H LOOP 46 TINES-OR 2 SEC. TOTAL 
ae Be +  § 
77 012436 00 304 C 4 
A en eo 
te Maes ee ea 
ih i We BEA ket 
015470 300086 iain ‘WORD 6. ERROR TY TYPE *tOoE 
E88 o1341 099519 SOB «RS, 3 :BRANCH_IF MORE IN CURRENT BLOCK 
01 XT BLOCK AND LOOP TO 1§. 


476 004767 000666 JSR Pus MMUP sFIND NE 


eae ———————— 


a 


SEQ 0067 





= a ———ee ae eee 7 ee me ee oo 
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SNE” RELOCATE PROGRAM AND REPEAT ALL TESTS. - 


2685 ,SBITL DONE: RELOCATE PROGRAM AND REPEAT ALL TESTS. 

61 85 004567 005024 "JSR RS $SCOPE ;G0 19 SCOPE ROUTINE. 
687 O1 005067 166446 TST32: (CLR sTIMES SRESET ITERATION COUNTER FOR RESTARTING TEST. 

é ot 12 10 7 166354 CLRB 3s $TSTNM sRESET Test NUMBE ' 

0 7 000200 166404 BIT &SWO7, @SWR  ;CHECK F INATBIT RELOCATION, SHITCH. 
6 ot 4 001037 BNE $EOP sSKIP RELOCATION IF SWITCH SET. 
oh Olea Suey see era here 
69 0087 ; 166442 TST $PASS “CHECK FOR iST PASS 
94 1036 BNE IF APT,DO NOT RELOCATE AFTER FIRST PASS 
Zon eT: h6UrhCU HE FOR ATL 
$3) \ 4 166424 TST $PASS s CHECK FOR EARS PASS 
98 a 1417 BEQ ‘ IF ACT,DO NOT RELOCATE ON FIRST PASS 
69 0 60 052767 000001 165746 2%: BIT 4BITO,PRGMAP | ;CHECK TF PROGRAM IN FIRST 8K 

Hy { 001404 BEQ 4$ id NOTIN FIRS] BK RELOC TOP TO BOTTOM 

i 012570 004767 002154 JSR pC RELTOP RELOCATE. PROGRAM TO TOP NE MEMORY. 
t 012574 000167 174206 3s; JUMP STARTI ‘LOOP BACK AND RUN ALL TESTS AGAIN. 
7 4767 002460 4s: JSR PC, RELO  ;RELOCATE PROGRAM BACK TO FIRST 8K. 
108 Beef obste7 tesoe rst = «43 Ss 
7 00140 BE 6$ -IF NOT RUNNING UNDER MON. DONT 
708 01564 767 002646 S$: JS PC, RESLDOR ;RESTORE LOADERS. 

12616 004567 007130 JSR RS SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 

2 001171 “WORD = $CALF sADDRESS OF MESSAGE TO BE TYPED 


' -_—— oe - meee eae 
~ sz aie it. CL LL LL LLL LLL 


Ss 


SEQ 0068 
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| SONee RELOCATE PROGR AM AND REPEAT ALL TESTS. - SEQ 0069 


27il s  RRERSRASESASASASASAASEAREARESASASARARTRSSRARARAALALAAALE LEE LES 


-SBTTL END OF PASS ROUTINE 


;#INCREMENT THE PASS NUMBER ($PASS) 
#TYPE “END PASS ett i 0 ton XXXXX IS A DECIMAL NUMBER) 
ser THERES A MONITOR G 

F THERE ISN'T JUMP 70 START! 


315654 wi 
012626 00 Pa 166326 CLR $TIMES ;;ZERO THE NUMBER OF ITERATIONS 
012632 005267 166344 INC $PASS ;;INCREMENT THE PASS NUMBER 
6 042767 100000 166336 BIC #100000, $PASS : DON T ALLOW A NEG. NUMBER 
00 327 DE (PC). : LOOP? 
0 $EOPCT: .WORD 1 
00304 BGT $DOAGN YES 
0 273 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
00 01 $ENDCT: ;WORD i 
0126 004367 007066 JSR R5 $PRINT ‘Rboneae" OUT THE FOLLOWING MESSAGE. 
388s SERRE tsi i TOES soy MOR Estcc"eRS neal 7 
»« THE NEXT TWO TNeTR Fans PRAY fide AN oll ERF ACE of’, THE sTYPDS ROUTINE 
a as USING A *TRAP® INSTRU SCA LLED +5) SHA 
012672 106746 i638) OW AE PROCESSOR cTATUS THE STACK 
012674 10 000001 1(SP ‘MiGy BYTE CLEARED TO INSURE KERNEL MODE 
012700 004767 010042 JSR PC, STYPDS ;GO0 TO THE SUBROUTINE 
0 104 004567 007042 JSR R5 SPRINT ;GO PRINT QUT THE THE FOLLOWING MESSAGE. 
710 012775 “WORD = SENULL :ADDRESS OF MESS BE TYPED 
012712 $GET42: 
7 6700 165124 MOV 4 RO -GET MONITOR ADDRESS 
pt 7 gh 416 BEQ SBOAGN .;BRANCH fF NO MONITOR 
: t 00 0 ESET »;CLEAR THE WORLD 
; 4 10 $ENDAD: JS PC, (RO) ::60 TO MONITOR 
127 000 0 NOP -;SAVE ROOM 
15486 00540 : ai 
0127 a8 3 000042 000046 CMP a#42 , 0846 :ARE WE UNDER ACT11 OR XXDP 
01274 1403 7 BEQ SDOAGN IF ACTLI THEN RESTART 
1 14 19 737 001214 STB. Ss @BSENV ::CHECK FOR APTI 
1002 BNE $DOAGN -IF APT11 THEN RESTAR 
t 004767 002576 sea JSR PC, SAVLDR ..IF XXDP FIRST SAVE MONITOR 
754 000167 174026 JUMP START sRETURN&& kx 
0127 9 015 O12 105 $ENDMG: -ASCIZ <15><12>/END PASS’ #/ 
18! 116 104 040 
7 120 101 123 
2. 
012775 377 377 000 $ENULL: .BYTE - NULL {CHARACTER STRING 


EMENT AND ADDRESSING SUBROUTINES . 


wb lle tlic lls Mes mows we Bee 9 9 hoy RRO 
‘i SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION. 


H -SBITL SL ROUTINE “Ai FRAP ROUTINE SECT 
7 -SBTTL MEMORY 
71 

715 








ate 
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MANAGEHERT AND ADDRESSING SUBROUTINGS. ’ al SEQ 0070 


rot 


CV 
ME 


Su 
SS <e 


;# THE PROGRAM IS POINTED TO BY PARS O AND 1. 

;* THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 AND 3. 
;* THE DEVICE ADDRESS AREA IS POINTED 10 BY PAR 7. 

;* PARS 4, 5, AND 6 ARE UNUSED 


+s KkPehk keke chee aaRARARERARARERERESARARAARESARAAREREARRE AREER REE 


POPOMOPSPory 
~~ J 
MMrrrnr 


-OO® 





01 MAINIT 
737 077406 172300 MOV #200-14%400+UP+RW, @KIPDRO sSET KIPDRO = RW UP 200 K 
122 Of gists 077406 172302 MOV 4500-1%400+UP+RW, aaKTPDR1 -SET KIP t= RW UP 300 rc 
7 012737 077406 172304 MOV #500 -1%400+UP+RW, a4KIPDR2 sSET KIPDR2 = RW UP 200 BLOCK 
724 012737 077406 172306 MOV #200-14400+UP+RW, B&KIPDRS sSET KIPDR3 = RW UP 200 BLOCKS 
725 7 172310 CLR asKIPDR4 
7 6 { 7 172312 CLR OeKTPDRS 
7 of 0 4 166060 TSTB © $AUTOB :;V IF TRUE XXDP CHAIN NODE 
! 8 00 0 : natin BNE vik —_ ;;V DO NOT TOUCH KIPDR6 OR KIPDR7 
730 of 7 415) 172316 MOV 4200 -1%400+UP+RW, A#KIPDR7 -SET KIPDR7 = RW UP 200 BLOCKS 
7 7 472340 VMK: CLR ;MAP PARO INTO BANKO 
7 012737 9200 172342 MOV #200, S#KIPARL ;MAP PARI INTO BANK1 
7 6 3 172344 CLR aeKIPAR2 sMAP PAR2 INTO BANKO 
7 7 172346 CLR OsKTPARS 
735 013102 005037 172350 CLR S#KTPAR4 
! é 00 037 i 352 CLR OsKTPARS 
30 67 166006 TSTB —s- $AUTOB >3V IF TRUE XXDP CHAIN MODE 
7 é 0 8 005 BNE VMK -;V DO NOT TOUCH KIPAR6 OR KIPAR7 
7 00 172354 CLR OSKIPARG 
74 0 1 4 O12 37 177600 172356 MOV #177600, @#KIPAR7 -MAP PAR7 INTO I/O BANK 
74 2 767 165400 VMKL: TST MMAVA sIF 22 BIT ADR NOT AVAILABLE 
74 of 6 99005 BPL 1$ ; THEN BRANCH 
74 4 2737 000020 172516 BIS 4BIT4, O#SR3 ; ELSE ENABLE 22 BIT ADDRESSING 
1 0 46 18731 000001 177572 13: V #1 a8SRO ‘ENABLE MEMORY MANAGEMENT 
14 207 RTS RETURN 
74 
re ¢ 5 KKAKEKEEEKERERESEE AEA EEREAS EEE EERE EERE AEAEEAEAAAAAARREREKEEES 
74 -& MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 
By} 5p RR RRRE RARE RARER AER RE AA EE REAR RE EER AA RARER EE AERA KARE AE EE RE AA RE 
7 0 1 INITMM: 
i 010046 MOV RO, -( $8) ;;PUSH RO ON STACK 
0 01014 MOV Ri, -(SP »;PUSH Ri ON STACK 
753 01 012767 100000 166612 MOV aBTTi5 ,PLUSL 
f 00500 CLR R2 sINITIALIZE ADDRESS 
005767 165340 TST MMAVA 
7 76 001410 BEQ 2$ 
7 0 700 000020 MOV #20 RO 
7 ; 701 166606 MOV BITPT,Ri 
7 10 021 1s: CLR (R1)+ 
760 0 12 077002 SOB RO,1$ 
s 0 14 00503 172344 CLR aeKTPAR2 
012767 013362 166526 23: MOV *TNITEX, MMORE 
316 of 066767 165300 166520 ADD RELOCF , MMORE 
764 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
. Of ; 012600 nin HOV CSP) RO ;;POP STACK INTO RO 
3 Tee Ot a5aq 004767 acer FATAL ERStR pe’ SERROR ;4#& ERROR «sx (GO TYPE A MESSAGE) 
013250 000007 WORD 7 sERROR TYPE CODE. 





=——ee es 
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MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES 


2767 013252 000000 HALT sFATAL ERROR!!! NO MEM INDICATED IN MEMMAP ABOVE 8K! 
i 
: TREE? ed aan PUSH RO ACK 
a1 3388 O19148 MOV Re +83 Bayt Ri ON Thee 
2771 0 CLR 2 
77 5767 165250 TST MMAVA 
77 14 4 BEQ é 
77 i 000020 MOV #20, RO 
775 013274 016701 166516 MOV BITPT,R1 
116 013300 21 1s: CLR (Ri)+ 
77 1 03 077 0 SOB 13 
118 1276 000001 166470 MOV 48 TTO,PLUS1 
9 13312 00 37 172344 cLR aeKIPAR2 
31 ie 12161 000020 166366 2%: MOV 4BIT4, BITPT 
; o Siete, Slaves ieetey St: TON SINTIEX Teme 
518 8t33 99878! ny CSP A :;POP STACK INTO Ri 
013344 012600 MOV (SP)+.RO ;;POP STACK INTO RO 
3785 01 3346 904767 000562 JSR BC. MMDOWN 
4767 004466 — * PC; SERROR ;4k ERROR *#« (GO TYPE A MESSAGE) 
013356 000007 WORD RROR TYPE CODE. 
2787 013360 000000 HALT -FATAL ERROR!!! NO MEM INDICATED IN MEMMAP ABOVE 8K! 
788 01336 010467 166366 INITEX: MOV R4,MMORE 
i 013366 000204 RTS R4 
f as i eCOMMON UPWARDS ADDRESSING ROUTINE 
79 7 COMMON UPWARDS ADDRESSING ROUTINE 
79 ;# FINDS NEXT EXISTING 8K BANK AND UPDATES POINTERS. 
794 -« GOES TO ADDRESS IN "MMORE” IF MORE BANK 
19 - BOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE 
5799 ss PP 2 Bohr AUR NB vig ory Per tie od tee Bo pit pe 
013370 012705 020000 V #200 UP 8K TEST COUNTER 
5438 : UP tue NEXT T uo” INSTRUCTIONS PROVIDE ANT AN noante FACE TO THE $CKSWR ROUTINE 
= on USING A "TRAP" INSTRUCTION AS CALLED FOR BY *«SYSMAC&« 
013374 106746 SP ) i THE PROCESSOR STATUS ON THE STACK 
013376 105066 000001 1(SP) sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
013402 004767 005200 JSR pC $CKSWR ;GO TO THE SUBROUTINE 
3 © 013406 005767 165124 TST MMAVA ;CHECK FOR MEMORY MANAGEMENT 
o1 013412 001475 BEQ 7$ IF MMAVA = 0 ,BRANCH TO NON KT MODE 
280 0 4 010046 MOV _—s RO, -( SP ;;PUSH RO ON STACK 
6 010146 MOV =—s- R11 -( SP ::PUSH Ri ON STACK 
0 010346 MOV R3,-(SP -;PUSH R3 ON STACK 
01 34 ; 019446 MOV R4 (SP) PUSH R4 ON STACK 
2803 12702 040000 MOV #46000 ,R2 -MMU AVAIL. SET UP 
0134 005767 166346 TST PLUS1 “CHECK IF FIRST TI 
5 01 001003 BNE 100$ DO NOT ADD 8K TO 
7 172344 1$ ADD #400, A#KIPAR2 ADD BK TG PANO 
nt ote Ntaat teat ts 100$: V BI Tree RI 
2809 013450 012700 000020 MOV 450, RO 
2810 013454 006367 166322 ASL PLUS 

















wide RD TGMELHhRaL RE, "oer 2-005 00:45 Pog 19-3 








SEQ 0072 
11 01 2$: ROL Ri)+ sROTATE TOTAL TABLE TO INSURE 
se SHS sh MO. a8 ROTATION OF ONE BLT ee art 35 ser 
4 ; 66 43 04 MOV SP)+,R4 ; sPOP Back INTO R4 
0 012603 MOV SP)+_R3 : :POP STACK INTO R3 
Ie ot oS MOV SP)+,R1 -:POP STACK INTO Ri 
01347 of MOV SP)+,RO ;;POP STACK INTO RO 
815 01 i 10 BR 12$ sDONE,READY TO EXIT 
8 : 01 016703 166312 101$: MOV “BITPT,R3 
ot 704 166302 MOV “TSTMAP, R4 
; 10 1 700 20 MOV £50 RO 
14 032324 3s; BIT (R3)+,(R4)+ 
0 00100 BNE 4g 
07 SOB RO,3$ 
2 00074 BR 1$ 
013524 013737 172344 172346 43: MOV S#KIPAR2 , @AKIPAR3 
4 p 3131 000200 172346 ADD #900, aK IPARS 
5 12604 MOV SP)+, ;;POP STACK INTO R4 
0 fe 12608 MOV oP + R3 ;;POP STACK INTO R3 
£4 012601 MOV P)s, +;POP STACK INTO Ri 
013540 012600 ; MOV SP)+, ;;POP STACK INTO RO 
6 : 00 ie) 164762 | i I HAVA 
5 032767 100000 166166 BIT #B1T15 ,BITPT+36 
tate eS 
8 0 e167 100000 166116 5$: BIT #81715, BITPT 
76 0014 - BEQ 9$ 
01270 010000 6$:  -MOV #10000,R5 
4 042 BR 9$ 
5 013606 006367 166170 7$: ASL PLUS 
: 1 006167 166076 | ROL BITP 
03440 BCS 12$ 
: 0 36767 166070 165726 BIT BITPT, TSTMAP 
6 001003 NE 8$ 
0 062708 040000 ADD #40000 ,R2 
764 BR 7$ 
032767 000010 166050 83: BIT #BIT3,BITPT 
44 001407 BEQ 9$ 
4 Ot 4 012709 010000 MOV #10000,R5 
1 767 166116 TST FLG3OK 
01 bo1402 BEQ 9§ 
06270 004000 ADD #4000, R5 
: 64 032767 000001 166022 93: BIT #BTTO,BLIPT 
13672 001407 BEQ 10$ 
0 1 74 066702 166062 ADD FSTADR,R2 
013700 005767 166056 TST FSTADR -FSTADR = STARTING ADDRESS 
0 OR 1000 IF VECTOR AREA IS 
PROTECTED. 
4 013704 00140 BEQ 10$ 
5 of 706 162705 000400 SUB #400 ,R5 ;ADJUST ADDR COUNTER TO PROTECT 0-1000 
0 ie 6716 166036 10$: MOV MMORE , (SP) 
137 020 11$: RTS PC 
8 -* BEFORE FINAL EXIT, CHECK FOR ANY NON-TRAP PARITY ERRORS. 
59 013720 005767 167446 {2$: TST MPRX ;CHECK FOR ANY PARITY REGISTERS PRESENT. 
2860 013724 001402 13$ -BR IF NONE. 
2861 013726 004767 002106 JSR PC, CKPMER “CHECK FOR PARITY MEMORY ERRORS. 
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HEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 
r4 ¢ 013732 000207 

e 

5 4 

5 


172344 


346 
346 


— 


165614 


165544 





13$: RTS PC sSTRAIGHT RETURN. 

3 5 RERESAERESARER ERAS AEEEAKEKERESA REESE EAA RE AKAEREEEEA EERE REALE 
-& MEMORY DOWNWARDS ADDRESSING SUBROUTINE. 

- LOWER 8K BANK AND UPDATES POINTERS. 

-& GOES TO ADDRESS IN “MMORE” IF MORE 

-& DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 

sp REREAEKEAAEEAERAKERESERAEEASER EKER EERE ER ERAKEREAEREARAKEALEE ELE 


MMDOWN: MOV #20000 ,R5 -SET UP 8K TEST COUNTER 
;« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE 
-& WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY *«#SYSMAC&s. 
MFPS _-(SP sPUT THE PROCESSOR STATUS ON THE STACK 
CLRB 1(SP sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
“ON PSW RETURN. 
JSR pC $CKSWR ;GO TO THE SUBROUTINE 
TST MMAVA ;CHECK FOR MEMORY MANAGEMENT 
BEQ 7$ sIF MMAVA = 0 THEN BR TO NON KT MODE 
MOV RO, -(SP -sPUSH RO ON STACK 
MOV RL, - SP ;;PUSH R1 ON STACK 
MOV R3,-(SP ;;PUSH R3 ON STACK 
MOV R4.-(SP -;PUSH R4 ON STACK 
1s: SUB #400, @#KIPAR2 ;DOWN DATE TO NEXT 8K BANK 
MOV -BITPT RO. 
ADD £40 RO’: sSET UP TO MOVE POINTER 
MOV #90) R3 -ONE POSITION THRU 20 WORD TABLE 
ASR PLUSt sGET INITIAL VALUE OF BIT 
2$: ROR aR) ‘MOVE THE POINTER 
BCC 06 sCONTINUE TESTING UNTIL CARRY BIT SET 
MOV SP)+,R4 : POP STACK INTO R4 
MOV SP)+,R3 ::POP STACK INTO R3 
MOV SP)+-Ri ;;POP STACK INTO R1 
HOV SP)+/RO ;:POP STACK INTO RO 
8 i$ sTESTING DONE,READY TO EXIT 
100$: MOV BITPT,RO sTHEN WE HAVE TESTED LAST BANK 
ADD 440,R “IF NO UNDERFLOW SET UP TO 
HOY TSTMAP,R1 ;SEE IF BANK SHOULD BE TESTED 
ADD £40 ,R1 
MOV #90‘ R3 
3$; BIT -(RO), -(R1) sCHECK IF BANK IS UNDER TEST 
BNE -IF YES GO SET UP PARS 
SOB R3,3$ IF NO CHECK ALL POSSIBLES 
BR 1$ -TIF NOT GO CHECK NEXT LOWER 8 
4$: MOV SaKIPAR2 A#KIPARS;MAKE PAR AND PAR3 POINT TO SAME 
ADD QsKTPARS ;MAKE KIPAR3 UPPER 4K 
MOV 00600, R2 -SET UP FIRST ADDRESS + 2 
MOV +, R4 :;POP STACK INTO R4 
MOV SP)+,R3 :;POP STACK INTO R3 
MOV SP)+_R1 »;POP STACK INTO Ri 
MOV +, RO ::POP STACK INTO RO 
TST ‘CHECK FOR 22 BIT ADDRESSING 
BPL § -IF NO,CHECK 18 BIT MODE 
BIT 4BIT15,BITPT+36 ;TESTING HIGHEST 22 BIT SEG.? 
BNE 6$ “IF YES,D0 ONLY 4K SEGMENT 
BR 9§ ‘IF NO,DO 8K SEGMENT 
5$: BIT *BITI5,BITPT | ;TESTING HIGHESTT 18 BIT SEGMENT 
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MEMORY MAN ING SUBROUTINES. SEQ 0074 
o144 001436 BEQtié9S SIF NO .DO 8K SEGMENT 
08 a8 01 102 060000 6$: MOV 460000 ,R2 ‘DO ONLY 4K SEGMENT 
o144 705 010000 MOV #10000:R5 :SET UP 4K WORD COUNTER 
4162 3] BR GET OVER NON KT ROUTINE 

3308 O14) 006267 165524 7$: ASR BITPT POINT TO NEXT LOWEST BANK 

910 014170 1 BCS 11$ ‘IF CARRY FOR LSB THEN DONE TESTING 
$31 sae ik 165516 165354 BIT BITPT, TSTMAP ‘IS THIS BANK UNDER TEST? 

91 14302 a 040000 SUB #40000.R2 

ats 6 4 8 97e6 000010 165476 83: BIT . #B1T3,BITPT 

a18 Of 6 001413 BEQ 9$ 

917 014220 1627 020000 SUB #90000 ,R2 

9 8 14 4 01 198 010000 MOV #10000;R5 

919 014 767 165540 TST FLG30K 

920 014 001404 BEQ 9§ 

921 014 062702 010000 ADD #10000, R2 

9 4 42 069 08 004000 ADD #4000,R5 

3 4 05 187 000001 165440 9$: BIT #6110, BI1PT 

3 ; HF : ane 165500 Ist FSTAOR CHECK FIRST ADDRESS = 0 OR 1000 
9 4 62705 000400 SUB #400 ,R5 -PROTECT VECTOR AREA 0-1000 FROM 
i, ek ae, a er ae 
33 0 014274 000207 1i$: RTS x ‘RETURN 
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EVBROUTINGS FOR ADDEESS AND WORSE CASE NOiSe TESTS” , - SEQ 0075 





933 .SBTTL SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS. 
g 4 sp EXSERASESAESESEA EASES SE RACES ERASERS ERSLALARELELARER EL ALEAERS 
935 :* SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BOTTOM 16 BITS). 
339 014276 005767 164234 biYADR: TST MHAVA. CHECK FOR MEM MGMT AVAILABLE | 
1 : ; 
9 86 001433 BEQ 4$ -BRANCH IF NO MEM MGMT 
29 4 10146 MOV R1,-(SP -;PUSH R1 ON STACK 
4 10346 MOV R3,-(SP PUSH R3 ON STACK 
14310 010446 MOV R4,-(SP PUSH R4 ON STACK 
014 12 010 MOV R5,-(SP) ;PUSH RS ON STACK 
940 014314 01000 i$: MOV 0:R5 ;SAVE FOR PHYSICAL ADDR. ADDITION 
941 014316 042700 017777 BIC #17777 ,RO ;CLEAR VIRTUAL ADDR BITS 
942 014 701 000014 MOV #12. Ri -SET UP ROTATE COUNTER 
943 014 2 2$: ASR RO ‘TO SHIFT PAR POINTER 
944 014 077102 SOB R123 sINTO BITS 0-3 
945 014 012 172340 MOV #KTPARO,R4 ‘STORE START OF PARS 
946 014 060004 ADD RO.R4 iUSE PAR POINTER IN 0-3 AS INDEX 
947 014340 011403 MOV (RA) R3 :STORE CONTENTS OF PROPER PAR 
948 014342 0 101 000006 MOV #6 RA SET UP COUNTER TO 
4 630 3$: ASL R3 ‘CONVERT PAR CONTENTS 
950 014 077102 SOB R1,3$ -TO A PHYSICAL "K" ADDRESS 
4 010500 MOV R5_-RO iS TORE VIRTUAL ADDRESS 
4 2700 160000 BIC #160000, RO ‘CLEAR PAR POINTE 
014360 060300 ADD R3,RO ;ADD PHYSICAL "K" ADDRESS 
825 014362 012605 MOV SP)+,R5 OOD STACK ENT Rot ere ADDRESS 
+, i? 
a3e8 012604 MOV SP)+,R4 »;POP STACK INTO R4 
814398 15601 MOV ¢SPSs°R i tODP STACK INTO Ri 
956 014372 556007 4$: RTS sEXIT WITH PHYSICAL ADDR IN RO 
9 gs AKKEAKAASAREEALCACACLALEALALAAAREAAKELAKAKAALERLAKERAAKALALKASEAELELKE 
325 -* SUBROUTINE TO PUT BANK NUMBER INTO RO. 
0 © KKKKKAKESESEAAEAALALAAKESRALAAERALAAAAALGARERALAKALAKALELALEKAL EES 
014374 005000 BANKNO: CLR RO INIT 
3962 014376 010146 HOV Rt - p :sBUSH RI ON STACK 
010246 V R2,-(SP - ;PUSH R STACK 
44 0346 MOV R3,-(SP : BUSH R3 ON STACK 
44 0446 MOV Ra. -(SP ;;PUSH R4 ON STACK 
963 014406 016701 165404 MOV BITPT, Rt -START OF BIT POINTER TABLE 
964 014412 012703 000020 MOV $20, R -SET UP BITPT TABLE COUNTER 
965 014416 012702 000020 1$: MOV 450 R2 “SET UP ROTATE COUNTER FOR 1 WORD 
966 014422 012104 MOV (Ri)+,R4 ‘GET WORD TO ROTATE BIT 
967 014424 204 2$: ASR 4 ‘ROTATE BITPT WORD TO FIND BANK 
968 014426 103410 BCS ; -TF CARRY SET , THEN BANK FOUND 
4430 105200 INCB = RG :COUNT BANKS. 
970 014432 001004 BNE 3$ -BR IF NOT OVERFLOW. 
971 014434 004767 003404 —— : PC, $ERROR ;«&% ERROR «4% (GO TYPE A MESSAGE) 
014440 000007 WORD 7 -ERROR TYPE CODE. 
972 O14ade 90 HALT jFATAL ERROR?:+ NO POINTER FOUND. 
913 4444 077211 3$: S06 Re, 2$ :I me FINISHED ROTATING WORD 
R3, i$ -IF NOT FINISHED BITPT TABLE 
a8 —— e ” THEN ROTATE THROUGH NEXT WORD. 
PTE 012604 MOV (SP)+,24 ;;POP STACK INTO R4 








eee 








L6 


CO TINS” FOR ANDRE Se AND MORY uiase CA CRO YO5.02 Monday 23-Dec-85 98:45 Page 20-1 


CASE NOISE TESTS. SEQ 0076 | 
014452 012603 MOV SP)+,R3 ;;POP STACK INTO R3 
o14486 015601 1 A : DOP STACK INTO Ri 
2978 014466 20 RTS C ‘RETURR 
+4 5 SERSERERASEREAERASAASS ASAE AAAS RERE RASS TARESERE SEALE SESLA SELLE EELS 
981 '& SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 
kkk ek aaah ae aaRAAAAEARARARRESAEEEREA RE EEAS EE EEEEEEEEREES EE EERE 
388 014462 &tTCON: 
14462 004467 176470 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
2984 14466 OL 22 1$: MOV RO; (R2)+  ;MOV CONSTANT INTO M 
2985 014470 07750 SOB R5; is ‘BRANCH IF MORE IN CURRENT BLOCK 
14472 004767 176672 JSR PC: MMUP  ;FIND NEXT BLOCK AND LOOP TO i$. 
a 014476 000207 RTS pC RETURN 
: ep gg ag arr toa or ar ao ae 
989 ‘st ROUTINE TO ROTATE ‘C' BIT THROUGH A MEMORY LOCATION. 
© KAKEKEAAAAAAERALALAESLALAEAALAAKASLEAKALAESASAASE EASES EAEASSEAAALEERLEKSE 
99 014 09 106112 ROTATE: R ROLB R2) -(R2)=177776 OR 00000 
99> 014502 1061 ROL Ro -(R2)=177775 OR 000002 
993 014504 106112 ROLB RO :(R2=177773 OR 0000 
4 06 06112 ROLB Ro :(R2)=177767 OR 000010 
995 014510 106112 ROLB RO -(R2)=177757 OR 000020 
996 4 12 106112 ROLB =s« (R -(R2)=177737 OR 000040 
4 106112 ROLB RO :(R 171671 OR 000100 
998 4516 106412 ROLB Ro -(R2)=177777 OR 000000 
999 014520 106122 ROL RO). -(R2)=177577 OR 000200 
000 4 e 106112 ROL Ro :(R2=177377 OR 000400 
4 106112 ROL Ro -(R2=176777 OR 001000 
4 e 106142 ROL Re :(R2 173071 OR 002000 
4 611 ROL R -(R2)=173777 OR 00 
4 106112 ROL Re :(R : 7777 OR 010000 
5 014 106112 ROL R :(R2=157777 OR 020000 
4 106112 ROLB Ro : Re} 37777 OR 040000 
4540 106412 ROL RO -(R2)=077777 OR 100000 
8 4542 06120 ROL ROss f= =177777 OR 000000 
009 014544 00020 RTS C , 
ot REREEEEEEERASEAAERESSEARESASELAREREAEAEA SAAR EARAKAREEEELE CELE LAEES 
og ‘i SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD BLOCK. 
© KEEZEEKAEALESALERALEAAALCAAALACAAEELAESSALAAAALALLALALEALALESLELALLSE 
0 4 014546 012704 000020 lisx9: MOV #16. ,R4 sEACH LOOP WRITES 256. WORDS 
0 4552 010022 2$: MOV RO, (R2)+ 
ie Bie mE 
: 14560 010022 MOV RO, (Re 
4 010322 MOV R3,(R2 
i a10829 MOV R3, (RO 
4 010322 MOV R3,(R2 
‘ 14570 010322 MOV R3,(R2 
4572 0100 MOV RO, (R2 
§ 8143/4 318038 MOV RO. (RO 
3028 014576 010022 MOV RO, (Re 
029 014500 010022 MOV RO, (Ro 














SEQ 0077 


= —- ———- -—— ee ee ca GL LL ELL LLL LL LLL LLL LLL 


VMSAB_ 0-2 MEG MEMORY EX MACRO Y0S.02 Monday 23-Dec-85 98:45 Page 20-2 
EVBROUTINGS FOR ADDRESS AND WORSE CASE NOISE TESTS” - 





UT R3 INTO RO 
sPUT SAVED RO INTO R3 


:B 
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RELOCATION SUBROUT 


- SBTTL RELOCATION SUBROUTINES. 
; REREESERESSSAESESASESAEESRAESSEESA EERE EE EEEE REDE EE REED REEDED EES 


3o4e 
04 


04 ' ROUTINE TO RELOCATE PROGRAM CODE 
4 « KEKAEDALALCEL ASSES SESSEAAAAKAEKALCE AS ALCELACEAALASASALEALELA EEA ALS 
HES es weg MRE 
ae 019448 MOV arcane 
046 0146 0 4s: MOV R2 :GET FIRST LOCATION. 
SE cto mye AT EME Foes, 
ie ee » BEL, BeBe 
46 75 BNE i$ ;BR IF MORE 
GHGs: lerel mom, AB Hage. tay FRR TE GRATE rove. 
te ilies eee ee ES AS ee 
tae StO3e? 164212 MOV st sCOADR ‘BET 8 NATION aT 
3 #0 ie ey 003136 MOR OBC; SERROR sae ERC ase (DT ess jl MESSAGE) 
? i 2000 000004 ar "™ EAR Re mat OINTER 
Q 47 ¢ i a" 2 4s ital AGAIN. 
TE BA fio Pec iyi ee 
; M RELOCATED TO " 
$066 OHATHE HOHE cs MO BR CSP BUT TIE ORTON THE TAs ano TYPE IT. 
3067 4740 12604 HOV b)+,R4 Hi: TA i 19 R4 
tie fesse BE BN 
: nme 205 + "Re a i WT MEMORY . 
ie MST AVATAR TH rein 
f 47 3 : 900001 163556 era eer e626 = icant he ak SND IN BANKS 0 AND 7 
fh eS 
3077 af $0000 ie HALT FATAL an "PROG Sh SHOULD BE IN BANKS 0 AND 1 
47 0 MOV RO, $P) ;;PUSH RO ON STA 
re HET BOE ses i imeem 
441 9 0 
00 172346 yo? IPAR3 ;SET PAR TO TOP OF MEM 
a i 100899 172346 2$: sus iia Bans at sai ;BACK DOWN ONE BANK. 
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if: 164462 bi a0. MEMMAP aif ne ISTS. 

* . 

08! 172346 172344 35: Y —--SSKIPAR3, a@KTPARS <COPY PA 

: 009209 172344 4s: io wale Poe ino 

: 177546 om a RELOC py ELOCATE™ ir OVERLAYS SOURCE. 
a Sloe Sve UH eS Seine cepa a ite 

i sii aaa 4 PROGRAR SHOULD NOW HU EX city Mo bAST | ’ Tuo BANKS OF MEMORY. 








44: ; 
ee ee Sl 
. Md RO , ae ie INT R DOWN ONE BANK. 
ds i 164364 2 i MEMMAP a uo oi sta EXISTS. 
S006? — a. 2: = net #4 CONFLICT “COWLICT. 
90$: 8 
6 004767 002700 pond ef r PC, $ERROR ;a4« ERROR #e# (GO TYPE A MESSAGE) 
1 oe ae oe 
i ot 008867 art “ia RS: Loc ‘ a LOCATE ae se top of eM, 
13$: iW 0 iD TARTING 15 
; i a8) 163342 HOV RI, RELOCF :$ ‘ae nh ie he 158 RIN ies ocaten CODE. 
;¢ PROGRAM NOW XECUTING OUT oft 
72 06 ADD Rt er TH TACK POINTER TO TOP OF MEMORY 
¥ i artes 163332 MOV RI. REL ocr set ee : fe ATION tal ACTOR 
a oe ee ee 
4 060167 16 110 : R1, A UST FTWARE TCH tT R. 
d¢ i 
167 637 . p Rt ISPLAY ADR SOF TUARE i AY 15 R. 
S O1Sseh Goe7Si 956008 iat: ABD SRUOTAB. RA '' GRDINT 10 THE RELATIVE RELOCATION TLE, 
{iige Bik oe ee 
i ea ug, 777 obo BA 
: 3 01006? 163262 30$ HOV 0, py RGMAP iSET NEW PRO RAN HAP LO 64K. 
; : BE oss BL Agi ony Apel Heh bl 
HH S188 Ga mF cry . 
3} 5 RKRAEERERAAREE EE SESEREEERESASEREES ES EREEEEEAEAEE EE SEAEEE SE EE EES 
‘i SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS 0 AND 1. 
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REL SEQ 0080 
138 io. BIT.» #1. PRGHAP <CHECK FOR PROGRAM ALREADY IN BAN 
at a1 032767 000001 163242 AéLo: BIT if PRGMAP CHE ok F FOR P er AM ALREADY IN BANKS 0 OR 1. 
141 7 767 002544 JSR 4 SERROR eae ERR wo TYPE A MESSAGE) 
015300 000007 ain TE SERROR TYP 
42 0 HALT sFATAL ERRORS “PROGRAR ALREADY IN BANKS 0 OR i!!! 
43 015304 005767 163226 i$: TST MMAVA , 
44 015310 001417 BEQ 10$ :BR rk Noe MERCH 
145 01 2 00 7 172344 CLR a#KIPAR2 :SET PAR 2 10 BANK O. 
146 Of 7 000200 172346 MOV 3500. BPKTPARS | -SET PAR 3 TO BANK i. 
147 015324 567 177276 JSR sé, REL .40 MOVE 8K K INTO BANKS AND 1 
148 01 000000 “WORD 0 : SOURCE STA RTING ADDRESS. 
14 of 040000 "WORD 40000 iDESTINA TON STA; “ING ADDRESS. 
150 0 005037 172340 éL asKIPARO sRESTORE PAR 0 TO BANKO 
: 015340 012737 000200 172342 MOV 4900, 9K IPARL “RESTORE PAR i TO BANK 1 
.& PROGRAM IS NOW EXECUTING OUT OF BANKS 0 AND 1. 
015346 000440 BR 30$ ;BR TO COMMON EXIT. 
5 Ol 350 016746 163156 10$: MOV RELOCF -(SP) ;PUT RELOCATION FACTOR ONTO THE STACK. 
3196 Ot 1166, 000004 MOV es 2 ;SET DATA FOR RELOC SUBROUTINE. 
60 67 177242 JSR 5, RELOC #;GO MOVE THE PROGRAM BACK TO BANKS 0 AND 1. 
t é 015364 20$: WORD s SOURCE STARTING ADDRESS. 
0 66 000000 “WORD ‘DESTINATION STARTING ADDRESS. 
60 015370 161607 SUB Pcp) : JUMP TO RELOCATED PROGRAM. 
6 :« THE Goran 13° WOw EXECUTING QUT” OF BANKS Q AN. 
62 O1 372 61606 SUB SP), SP sRESET THE STACK POINTER 
163 015374 010046 MOV 0 (sp) : PUSH RO ON STACK 
164 015376 012700 002004 | MOV SRADTAB, RO ;SET UP POINTER TO RELATIVE ADDRESS TABLE. 
66 015402 166620 000002 21$: SUB SP), (RO)+  ;RESET ADDRESSES TO UNRELOCATED VALUES. 
129 015406 065720 22$: TST ebb). RAE EK AOR TPR HTNATORS 
168 015410 001776 BEQ 228 :BR OVER TERMINATORS 
16 of 12 g24g27 177777 CMP -(RO), #-1 -CHECK FOR END OF TABLE INDICATOR. 
0 6 001371 BNE i$ :BR IF MORE ADDRESSES IN TABLE. 
tf of 0 012600 MOV SP)+,RO - : sPOP STACK INTO RO 
2 161637 000004 SUB SP),  @#ERRVEC ; ADJUST ERROR VECTOR. 
7 Ot g 161637 0000 SUB SP), QPPWRVEC ADJUST POWER FAIL VECTOR. 
74 0 161637 000114 5 SP),  @#PARVEC :ADJUST PARITY ERROR VECTOR. 
75 015436 161667 163466 SP),  SWR sADJUST SOFTWARE SWITCH REGISTER. 
176 015442 161667 163464 SUB SP), DISPLAY ;ADJUST SOFTWARE DISPLAY REGISTER. 
177 O1 46 46 616 23$: § SP)+, (SP)  ;ADJUST RETURN ADDRESS. 
178 013430 903067 163056 30s: CL ELOCE ;RESET RELOCATION FACTOR. 
i 015454 012767 000001 163052 MOV #1, PRGMAP ;SET PROGRAM MAP TO POINT TO BANKS 0 AND 1. 
0 015462 000207 RTS pC RETURN. 
i . i TTS CUBROUTING MOVES THE LOADER AREA PACK 10 THE TOP’ OF MEM 
31 -« THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE “TOP” OF MEMORY FROM 
184 -& WHENCE IT CAME. THE LOADER AREA IS SAVED AT THE END OF THE 8K OF 
18 -« PROGRAM CODE WHEN THE PROGRAM IS INITIALLY RUN. 
l KKKKKEKERAKAKAAKEAKAEEAAAKAREAKEAAAEKEKAKEKEEKEREAAAKERAKEAKALEAKEKAEES 
18 0154 016700 164020 bESLOR: MOV LMAD, RO -CHECK IF THE LOADERS WERE SAVED. 
188 015470 001004 BNE 1$ -BR IF LOADER AREA WAS SAVED. 
3189 015472 004767 002346 _— me PC, $ERROR :x& ERROR xe (GO TYPE A MESSAGE) 
015476 000007 WORD 7 -ERROR TYPE CODE. 
3190 818608 000000 HALT -FATAL ERROR!!! CAN'T RESTORE LOADER AREA IF IT WASN’T SAVED. 
! 
es 
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SEQ 0081 
3191 015502 005767 163030 1$: TST MMAVA ;CHECK FOR MEM MGMT. 
9 0 00 400 Beg 2$ iSKTP IF NO MEM MGMT. 
ai Stasi Siete Mohan; my FREPMND OFC "ASsune noc war nevocareD 
195 0 01 702 003000 MOV #198 m Re GET COUNTER. ching 
96 0 4 3$: MOV -(Ri),' -(RO) ;MOVE THE LOADER AREA. 
9 5 DEC R2 :COUNT HOW LONG THE AREA IS 
98 ot 00 BNE 3$ -BR IF NOT MORE TO MOVE. 
163752 CLR [MAD ‘CLEAR MONITOR SAVED FLAG 
ot 00 7° 162774 TST MMAVA s CHECK COR MEM MGMT. 
402 BEQ 4$ BR IF NO MEM MGMT. 
ot 00 37 177572 INC a#Sr0 sENABLE MEM MGMT. 
015550 07 4$: RTS PC RETURN. 
015552 005767 163732 iAVLBRY tet ” sitio meee ATHECR Fe OADERS HAVE BEEN SAVED ALREADY 
t 2 001024 BNE 4$ ‘BRANCH IF ALREADY SAVED 
: O18? 040000 - MOV #40000, RO iGE] END OF 8K 
01600 MOV RO 1 :GET END OF 8K 
ot of 737 015600 000004 MOV #e Q#ERRVEC ;SET UP TIMEOUT VECTOR 
4 011020 i$: MOY (RO), (RO)+  ;SEARCH FOR END OF MEMORY 
0 7 00 776 BR $ sKEEP SEARCHING 
22626 2$: CMP SP). (SP)+ RESTORE S ACK POINTER 
0 ; 012737 023430 000004 MOV SERRTRP, O#ERRVEC ;RESET TIMEOUT VECTOR. 
10 010046 MOV RO -(SP) ;SAVE LAST MEMORY ADDRESS (CONTIGUOUS) 
of 2 012702 003000 V #1336. Re :SET UP WORD COUNTER 
6 014041 3$: V -(RO), -CRL)  ;SAVE THE LOADERS 
of 0 9302 Cc R2 i T THE WORDS 
bt2054 012667 163660 OV OeSP)s, =LMAD {SAVE LAST MENORY. AD 
+, ; 
355) 018680 900007 as: RISO RETURN 
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RAP SERVICE AND SUBROUTINES. SEQ 0082 
223 -SBTTL_ PARITY MEMORY TRAP SERVICE AND SUBROUTINES. 
4 5 KESESESASASSAS SESE LE TELERA SARE SALA EALAAARERAREREREALA EAE EELEE 
5 ‘PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 
6 :* FIND OUT WHICH REGISTER DETECTED THE ERROR. 
-:@ THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 
§ 015632 011667 163254 A eee OM Woe oe oo eee 
6 S186% O04867 004170 JSR R5 SPRINT iGO PRINT OUT’ THE FOUL OWING WE SSAGE. | 
024643 WORD UNE ADDRESS OF nESSAGE TO BE TYPED 
"UNEXPECTED M HORY PARITY TRAP. ” 
3231 O01 010146 MOV RL. -(SP} -;PUSH Ri ON STA 
0! 010 46 MOV R3.-(SP ;;PUSH R3 ON STACK 
é 01 016703 164150 MOV MPRX, R3 “GET POINTER TO ARITY -REGISTERS. 
ot 00 133 i$: TST aC R3)+ sCHECK THE PARITY REG FOR AN N ERROR FL FLAG. 
10041 OMI 3$ -BR IF THIS REGISTER’ shus t ROR 
of 60 0057 3 TST (R3) -CHECK FOR TABLE TERMI 
bteeeg GORE? 002154 MeO SERROR Bh Tr HORE REGISTERS A MESSAGE) 
#eERROR&&s = NO REGISTER INDICATED ERROR 
015670 000024 ORD 24 sERROR TYPE CODE. 
5 0 Ie 000417 BR 4$ EXIT 
7 713 2$: TST (R3) sCHECK FOR TABLE TERMINATOR. 
0 015676 001419 BE 4$ -BR IF NO MORE PARITY REGISTERS. 
4 of 00 0057 TS aC R3)+ ;CHECK THE PARITY REG FOR AN ERROR FLAG. 
42 0 108 100374 BPL § :BR Ir NO ERROR FLAG. 
43 0157 4567 004042 JSR 5 SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
015710 024734 “WORD = MTOE ;ADDRESS OF MESSAGE TO BE TYPED 
prs ” :"MORE THAN ONE ERROR FOUND. ! 
04 7 ; 767 001010 30070$: JSR PC, SPRNTQ ;SET UP VALUES FOR ERROR PRINTING. 
716 004767 002122 JSR PC, $ERROR :k#k ERROR &&% (GO TYPE A MESSAGE) 
Of 722 000025 “WORD 25 sERROR TYPE 0 
45 015724 004767 000262 JSR PC, PSCAN ;GO SCAN MEMORY FOR BAD PARITY. 
46 1 t : 000761 i BR 2§ :G0 LOOK FOR MORE ERRORS. 
015732 012603 MOV ($P)+ 3 ;;POP STACK INTO R3 
; 734 «(0 2601 MOV SP)+R1 ‘POP STACK INTO Ri 
48 736 0 RTI ‘RETURN. 
0 AXKKKKAEEAAEEARASALCASAAAASAEAKEESAESALASLEKAKAKAKEKKAKEAAREEAKEEKEEE 
‘ROUTINE TO ENABLE PARITY ERROR ACTION ON MA/MF PARITY MEMORIES 
‘THIS ROUTINE IS MEANT TO CATCH UNEXPECTEDS 
© KKXKKAKAKERELALALEKALKEREKEKAAAKEKALESEARAARAEEREKEREKEASESKAKEEKAKAEKE 
4 015740 005767 165426 AME: TST MPRX -CHECK IF ANY PARITY REGISTERS EXIST. 
OL 744 oo14 4 BEQ MAMF 2 ‘EXIT IF NO PARITY REGISTERS. 
746 032777 000100 163154 BIT “CW6,  @SWR § ;CHECK FOR INHIBIT PARITY ERROR DETECTION. 
01 {34 001030 BNE MAMF “EXIT IF NO PARITY ERROR DETECTI 
8 O13! 005767 162550 TST RELOCF ;CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 
ot 7 001410 BE SETAE iBR TF PROG IN BANK 0 
0 0157 777 000040 163136 BI aCWS, @SWR  ;CHECK I ORS PROTECTED. 
$6 O13! 2 001004 BNE SETAE ‘BR IF VECTOR AREA PROTECTED. 
74 026727 163762 001000 CMP ESTAGR, #1000 ;CHECK FOR STARTING ADDRESS ABOVE THE VECTORS. 
016002 103415 BLO MAMF 2 “EXIT IF VECTORS EXPOSED TO TESTING. 
55 016004 016737 164022 000114 SETAE: MOV -PESRY SSPARVEC -SET PARITY ERROR TRAP VECTOR 
56 016012 005037 000116 CLR RVEC +2 C22 -PRIORITY LEVEL 0 ON TRAP 
267 016016 010346 MOV RF esp -sPUSH R3 ON STACK 
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BARTTY MEMORY TR sates - SEQ 0083 


AP SERVICE AND SUBROUTINES. 


URN IF_MEM BANK HAS gl MAPPED IN PARITY MAP 
* RETURN+2 IF ERROR,MEM BANK HAS NOT BEEN MAPPED. 
in shGdRGASSREASASSESSSESAEEEAASSRASEAASERASRASEAREEEAREEEAEEEES 


46 PARMAT : 


3268 016020 016703 164000 MOV MPRX, R3 sGET PARITY REGISTER TABLE POINTER. 
016024 e133 000001 MAMF1: BIS #AE Q(R3)+ ;SET ACI ENAB E ; T IN PARITY REG 
0 0 7 TST (R3) :CHECK F TABLE. 
7 001374 BNE MAMF 1 -BR IF MORE PARITY REGISTERS. 
7 p 60 012603 MOV (SP)+,R3 -POP STACK INTO R2 
i 0 MAMF2: RTS pc ‘RETURN. 
7 5p EERESEASEAEASE SALE AE RARE EA SEERA EA RR ERSEARAAAR AR AEEEAE ER LERE LEE 
7 -* SUBROUTINE TO CHECK PARITY REGISTERS FOR ERRORS THAT DIDN'T TRAP. 
18 016040 . ¢ RERKERAESSAEAAEAEE SARAH ARALERESLERERAEERAREREE AERA EEERARAELERE LE 
7 5767 165326 CKPMER: TST MPRX sCHECK IF ANY PARITY REGISTERS EXIST. 
: oigo4d 4 74 000100 163054 Bre aEM6. aSWR BR Ki Mi erat T REGISTERS, ERROR CHECKING 
6 83 033 NE 43 iC HECK IF b Rit W ERROR CHECKING NHI as 
of 0 03 MOV R3,-(SP) PUSH R3 ON S 
03 163740 MOV “MPRX, ‘R3 ‘EET PARITY Rec ABLE POINTER. 
i 6 133 1$: ist SCRE); s CHECK THe PARITY REG FOR AN ERROR FLAG. 
b32998 000001 177776 BIT *BITO, @-2(R3) ;CHECK IF A TRAP SHOULD HAVE OCCURRED. 
8 ot 16 001410 BEQ 2$ :BR IF NO ACTION ENABLE. 
00 004767 000622 30071$: JSR PC, SPRNTQ SET UP VALUES FOR ERROR PRINTING 
0 og 004767 001734 JSR PC, SERROR ;xe% ERROR + + (60 TYPE A MESSAGE) 
90 ot 119 000026 ; WORD 26 ‘ERROR TYPE COD 
$3) O16t14 808767 000072 - JSR PC, PSCAN  ;GO SCAN ALL MEMORY FOR PARITY ERRORS. 
1 5 4767 000602 30072$: JSR PC, SPRNTQ iSET uP VALUES FOR ERROR PRINTING 
4 004767 001714 JSR PC, SERROR ;%%« ERROR #x* (GO TYPE A MESSAGE) 
9 0027 _ (WORD 27 sERROR TY 
3 016 004767 000054 . JSR PC PSCAN ;GO SCAN ALL MEMORY FOR PARITY ERRORS. 
94 0161 005/15 3$: TST (R3) : CHECK FOR TABLE TERMINATOR. 
siete Shae my feeveses ooo 
+, - 
$) teiaa 53 30) 4$: RTS pc RETURN. 
38 . © KKAKKKKEAAKAKEAKEERASEKALKARALERKREREAAKAREKEAAKEAKEAREKEKAKKEKEEKEEKEKEK 
0 + SUBROUTINE TO VERIFY THAT THE PARITY CSR DOES CONTROL THE BANK 
* UNDER TEST. MATCH THE BANK UNDER TEST WITH THE PARTTY MAP TABLE. 
« RE TABLE. 
5. 0161 
o18t 010046 MO RO,-(SP ;;PUSH RO ON STACK 
1 010146 V Ri,-(SP ::PUSH Ri ON STACK 
161 010446 MOV R4.-(SP ;:PUSH R4 ON STACK 
07 016154 012700 000020 MOV #9) RO -COUNT OF PARITY MAP TABLE 
8 016160 016701 163632 MOV BITPT,R1 sMEM BANK UNDER TEST POINTER 
103 MOV R34 -STORE PARITY MAP TABLE 
10 0 6166 005 24 TST CRA) -MOVE PAST CSR ADDRESS TO MAP TABLE 
1 O16} 032104 1$: BIT R1)+,(R4)+ -CHECK FOR TABLE MATCH 
12 016172 O01 03 BNE o¢ BR IF MATCH MADE IN TABLES 
i 16174 005300 DEC RO | -DO NEXT WORD IN 
4 016176 001 74 BNE 1$ :BR TO NEXT WORD IN TABLE 
13 016200 005725 ” TST (R5)+ - NO MATCH MADE,RETURN +2 
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SNRETe MEMORY TRAP SERVICE AND SUBROUTINES. , - SEQ 0084 | 


016202 012604 ;3POP STACK INTO R4 


Be Sie ERB IE 


ue 
: ss 5 kA EAEAEE AREA RAAAAEEARAREAEE AE RAREARARAREE RELA EAE EEEERREEEE REE 
-* AFTER A PARITY ERROR IS ENCOUNTERED THIS SUBROUTINE IS USED 
-« TO SCAN ARITY MEMORY PER THE PMEMAP TABLE LOOKING FOR BYTE LOCATIONS 
-« CAUSING THE PARITY ERROR. UPON FINDING THE LOCATT ONCS) A MES SSAGE 
-« WILL BE TYPED AND THE LOCATION WILL BE REWRITTEN IN ORDER TO RESTORE GOOD PARITY. 
5 = STORAGE USED: 
6 ; = BANK POINTER 
i Ri = PARITY CSR TABLE POINTER (MPRX) 
: 5 R = ADDRESS POINTER 
ik R = PMEMAP TABLE ENTRY 
0 ; = ERROR DETECT FLAG 
7 TEMP == TEMPORARY STORAGE 
16 12 Ce 
te 12 010046 MOV RO, -(SP ;;PUSH RO ON STACK 
016214 010146 MOV R1,-(SP ;;PUSH R1 ON STACK 
01 16 010246 MOV R2,-(SP - R2 ON STACK 
O16 010346 MOV R3,-(SP PUSH R3 ON STACK 
016 ; 010446 MOV R4,-(SP : 2 : R4 ON STACK 
3334 016 4567 003522 JSR R5. SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
016230 025090 “WORD SCANM sADDRESS OF MESSAGE TO BE TYPED 
"SCANNING MEMORY FOR BAD PARITY” 
3335 016232 004767 000434 JSR PC_CLRPAR ;GO INITIALIZE PARITY CSR’S 
3336 , 6 013746 000114 MOV a#i14, - oP} ;;PUSH @#114 ON STACK 
746 000116 MOV a#116,-(5 ;:PUSH 94116 ON STACK 
7 ot 246 of 13 000116 000114 MOV #116. aei14 ‘SET UP PARITY VECTOR TO 
; 037 000116 CLR g#116 sHALT IF ANOTHER PARITY ERROR OCCURS 
016260 005004 LR INITIALIZE ERROR DETECT FLAG 
0 005002 LR s INITIALIZE ADDRESS POINTER 
O16 64 012700 00009 MOV ae RO :INTITALIZE ANK POINTER 
0 O16 701 16352 MOV REMAP, Ri ;POINT TO PMEMAP TABLE 
74 00 161 162236 Ist iF MEMORY MANAGEMENT NOT AVAILABLE 
45 016 O13 74 172344 MOV SaKIPAR2, (88) ss BUSH 9¢K 1PAR2 ON STACK 
6 013746 172346 MOV O#KTPARS, -(SP jPUSH 4KTPAR3 ON STACK 
346 016312 005037 723d CLR TPAR SINITIALLHE PA TO 0 
016316 012737 000200 172346 MOV #200, BK IPARS TTT TSE ARS 
8 O16se4 012702 040000 MOV 0000 ,R2 ‘INITIALIZE ADDRESS POINTER TO MAP THRU PAR2 
0 016 0300 1$: BIT RO, (RL) sIF 8K BANK DOES EXIST 
) a8 : tite 3 BNE | ee 4° - THEN BRANCH 
016 060702 640000 ADD #40000 ,R2 ; ELSE UPDATE ADDRESS 10 NEXT 8K BANK 
016340 00047 BR 10$ . AND BRANCH TO SEE IF SHOULD CONTINUE TESTING 
§ 016342 111267 163422 2$: MOVB (Re), TEMP sREAD THE BYTE LOCATION 
é 5 eeae 016703 163452 MOV “MPRX, R3 ‘POINT TO PARITY CSR TABLE 
016 005733 3$: TST a(R3)+ -IF NO ERROR FLAG SET IN CSR 
5 a18884 100024 BPL 5$ : THEN BRANCH 
350 016 005704 TST R4 ; ELSE IF NOI FIRST ERROR 
361 016360 001003 BNE 4s : THEN BRANCH 








Ph 


MS 


SEVOREVS 


SELEESS 


i 
1 
i Set 
Me 
s He 
ser 
‘ : 
gol 
y 
ft 
i 
A 
ite 
zi a1 


/ 
RETY MEMORY f 


AWOR 
AP S 


005367 
005204 


Oo ooorocooo oO oO 
Rood fend son SShossn SSS SSRSSS8SSSS 
Score SO ww onuodee eee peoooeeoek 
om SS SbSRuen See SSS. 


Reakokee Sa S 


mo rom 
ot => 
3 SBESsens 


Ss 
g 


162514 


000332 
001444 


003332 


_ 177776 


162076 
163326 
170000 


160000 


060000 
162034 
007600 
177600 
037777 
000002 
163244 
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SERTTL 
R4 


 —FLGSOK 


6$ 

#170000 ,R2 
14$ 

9$ 


Ae -w-J~ 
Sie 3 
S 5S 
. oO 
x a 
SR 


“~J 


ASK8K , R2 


- 
x 


UWOrOSO « 
Ox 
2. 
20 
o> 
0 
es) 
So 


13$ 
4BTT0,RO 


MMAVA 
12$ 


00, B#KIPARS 


7600, #KIPARS 


~ 


SEQ 0085 


; ELSE ADJUST ERROR COUNT 
; AND SET ERROR DETECT FLAG 


;SET UP VALUES FOR ERROR PRINTING 
sek ERROR *&& (GO TYPE A MESSAGE) 
“ERROR TYPE CODE. 

sREWRITE LOCATION TO CLEAR BAD PARITY 


; TE 
'REREAD LOCATION. 70 SEE IF ERROR CLEARED 
-IF ERROR CLEARED. , 
‘co BRIN, OUT THE FOLLOWING MESSAGE 

: ADDRE S OF MESSAGE TO BE TYPED 
"PARITY ERROR WILL NOT CLEAR® 

; CLEAR PARITY CSR 


;IF_NOT DONE WITH TABLE 
Y NEXT CS RROR 
DATE ADDRESS POINTER 
MANAGEMENT AVAILABLE 


NOT 30K SYSTEM 
RANCH 
IF 30K I/0 PAGE 


N ALL DONE CHECKING MEMORY 
E TRY SOMEMORE 


naink == 

tme2HwswC-4 

a WS 2S 
2_> 


DONE CHECKING MEMORY 
SOMEMORE 


"wo waT™ WH 


AILABLE 
DONE 
;IF 2M I/ 


0 PAGE 
; THEN ALL DONE CHECKING 


;IF_NOT DONE WITH THIS 8K BANK 
; THEN TRY ANOTHER ADDRESS 


;IF_NOT DONE WITH 128K BANK 
; THEN BRANCH 
ELSE pO PALES NEXT PMEMAP ENTRY 


;IF_KT AVAILABLE 
; THEN BRANCH 
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ARITY MEMORY TRAP SERVICE AND SUBROUTINES. SEQ 0086 
3414 016572 032700 000020 BIT #8174, RO ,; ELSE IF Ay | She Bg bcane 
: : ote irae BR 1$ Lee at SOME 
8 6602 062737 000400 172344 12%: ADD #400,d#KIPAR2  ;UPDATE PARS TO MAP TO NEXT 
4 i661 062737 000400 172346 ADD #400‘ @aKIPARS NK 
0 6616 of 702 040000 MOV #40000 ,R2 ‘REINIT ADDRESS 
4 ; 1 4 BR 1$ “AND TRY SOMEMORE 
4 6624 13$: 
best 012637 172346 MOV (SP), , BKIPARZ ;;POP STACK INTO OaKIPAR3 
- bh 637 172344 MOV SP)+. a#KIPARZ ;;POP STACK INTO @#KIPARD 
4 66 5704 148: TST R4 SIF ERROR FOUND 
ee a ee eee 
. bi ee44 024204 ‘WORD NOPES :ADDRESS OF MESSAGE TO BE PyPED 
3738 919638 15$: 
16686 012637 000116 MOV SP)+, 0#116 ;;POP STACK INTO a#116 
01 012637 000114 MOV SP)+, #114 :;POP STACK INTO a#114 
0 012604 MOV SP)+,R4 . :POP STACK INTO R4 
603 MOV SP)+/R3 -:POP STACK INTO R3 
662 012602 V SP)+/R2 :;POP STACK INTO R2 
66 o12601 V SP)+,R1 :;POP STACK INTO Ri 
- 16666 0126 MOV SP)+_RO -;POP STACK INTO RO 
4 ; 016670 000207 16$: RTS PC sRETURN 
i 4 KKAKKAKEAAAKKELERAEKEEEKAEEREKRKAKARAAAEAEEEAKKAAKAKEAAKAEKAKEKEKEELKE 
435 ‘ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 
4 § kKKAKKKAEEALAELALAKAELALAAKREAKAKARKERARALAKAREKERAKAAEAEAKAKKEKEEKEKLESKSE 
437 0 6672 bi RPAR: 
016672 010346 R3 =(SP), PUSH R3_ ON STACK 
438 6674 0 6108 163124 MOV HeRX, ‘be PARITY REGISTER TABLE POINTER. 
4 00 713 1$: TST (R3 iC HECK FOR THE TABLE TERMINATOR. 
44 6108 0014 : BEQ 2$ R IF DONE ALL PARITY REGISTERS. 
441 0167 0 CLR a. “CLEAR THE PARITY REGISTER. 
44 0 6706 000774 pe BR 1$ :BR FOR MORE 
6710 01260 ’ MOV . (SP)+,R3 - POP STACK INTO R3 
44g Sere bheS09 we: Ope AETUR 
44 
443 -SBTTL SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE. 
rr s pHRTHESE ROUTINES ARE USED TO TRANSFER DATA TO C RekKKkEKEEEKE 
;« THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA ( CHTAG) 
450 -« FOR ERROR PRINTOUT BY .$ERROR & .$ERRTYP ROUTINES FROM *#4SYSMAC&s 
4 esooseapessesonsesesepssssesesesseainonoonss KREKKKKEAKEKALEKEELES 
452 016714 010267 162170 ébRNT: $GDADR ;SAVE THE ADDRESS UNDER TEST. 
4 : 6120 005067 162170 Rann AT -SHOULD BE DATA IS "0". 
434 724 000435 eBRNTD | 
4 ® 016726 014367 162216 SPRNTQ: MOV =(R3), $TMPO ;GET THE PARITY REGIST 
457 016732 013367 162014 V $TMP1  ;GET THE CONTENTS OF T 
458 016736 016767 163026 162152 MOV TEMP, Sé0AT 
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000426 
017526 


000410 


ie 98:45 Page 22-5 


DATA FOR ERROR PRINTOUT SEQ 0087 | 
MOV R2, $GDADR 
BR RS REND 
SPRNTP: MOV R3), $TMPO  ;GET THE PARITY moReLe A RESS 
SPRNTO: MOV 2 $GDADR :GET THE MEMORY A $$ BEING TESTED 
BR SPRNTA ;BR TO COMMON SECTI 
SPRNT1: MOV R2 $GDADR ;GET THE MEMORY ADDRESS BEING TESTED 
DEC $GOADR “ADJUST IT FOR PRINTOUT. 
BR SPRNTA :BR TO COMMON SECTION. 
SPRNT3: MOV R3, $TMPO —;GET THE DATA IN R3. 
SPRNT2: MOV R2, $GDADR ;GET THE MEMORY ADDRESS BEING TESTED 
162074 SUB 45 | $GDADR ;ADJUST IT FOR PRINTOUT. 
SPRNTA: MOV RO, SGDDAT GET WHAT THE DATA SHOULD BE 
SPRNTB: MOV Ri, $BDDAT ;GET WHAT THE DATA WAS 
SPREND: RTS pc sRETURN TO ENTER ERROR ROUTINES 
5 KKAEKEEAEEKAREAEKERERERAREREEE EEA EASE RARE RAKEAREAAAAEAKEAELAEES 
‘i THIS ROUTINE WILL TYPE OUT A MAP OF MEM 
5 UPON HENTERING tH S ROUTINE RO WILL CONTAIN THE ADDRESS 
=k OF THe TABLET E TYPED OUT. THE ROUTINE REQUIRES THAT THE 
;* TABLE CONTAIN C DECIMAL WORDS. 
; STORAGE USED: 
ik RO = MAP TABLE ADDRESS 
* Ri = BANK POINTER 
an R2 = CONSECUTIIVE ZERO BANK FLAG 
2 R3 = HIGH MEMORY ADR . LO 16 BITS 
; R4 = HIGH HEHORY ADR HI 6 BITS 
i LMEMLO = LOW MEMORY ADR ... LO 16 BITS 
; LMEMHI = LOW MEMORY ADR ... HI 6 BITS 
4 NKTAB = ADDRESS OF TRALE'to'Bc‘PROcesseD 
i KT = LAST ADDRESS + 2 OF TABLE TO BE PROCESSED 
; FLG3OK = 30K MEMORY FLAG 
. ‘OMAP: HOV RO-@SBNKTAB cSAVE ADDRESS OF TABLE 
tYPMAP: MOV SAV VE ADDRESS OF T 
017530 MOV #46 SOPNOBKT “LOAD END BANK TABLE WITH 40 
ADD RO, @4ENDBKT ‘GET LAST ADR + 2 INTO ENDBKT 
1$: TST (RO “ANY MEMORY IN THIS TABLE ENTRY 
BNE . ; THEN GO PRINT OUT LOCATIONS 
TST RO)+ ; LSE POINT TO NEXT TABLE ENTRY 
CMP S#ENDBKT ,RO -IF NOT END OF TABLE 
BNE 1$ . THEN TRY AGAIN 
JSR R5, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
‘WORD NOMEM “ADDRESS OF MESSAGE TO BE TYPE 
:"NO MEMORY FOUND. ” 
JMP 13$ ‘EXIT 
2$: MOV S4BNKTAB , RO sRESTORE MAP TABLE ADDRESS 
MOV R1,-(SP : PUSH Ri ON STACK 
MOV R2,-(SP PUSH R2 ON STACK 
MOV R3,-(SP -:PUSH R3 ON STACK 
MOV Ra. -(SP ;:PUSH R4 ON STACK 
CLR LMEMLO -TNIT LOW MEM ADR ... LO 
CLR LMEMHI -INIT LOW MEM ADR ||. HI 
CLR EMP ‘INIT LAST BANK IN MAP F 
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TINES 10 SET UP DATA FOR ERROR PRINTOUT ROUTINE. - SEQ 0088 | 
3 7 012703 177777 MOV #-1,R3 ;INIT HIGH MEM ADR ... LO 16 BITS 
AE gt it é ote 504 MOV R3,R4 -INIT HIGH MEM ADR ... HI 6 BITS 
; 13 017130 012702 000001 MOV #1,R2 SINIT CONSECUTIVE ZERO BANK FLAG 
3 13 017134 012701 000001 3$; MOV #BITO,R1 SINIT BANK POINTER 
g 017149 030110 4$: BIT R1,(RO) ;IF THIS 8K BANK IS NOT PRESENT 
8 17148 0140 BEQ S$ : THEN GO PRINTOUT MAP 
$ atts 06270 040000 ADD #40000,R3 ; LSE UPDATE HIGH MEM TO TOP OF THIS BANK 
; i139 005002 CLR R2 ;CLEAR CONSECUTIVE ZERO BANK FLAG 
: 17154 000541 BR ils GO CHECK FOR NEXT BANK 
4 017156 00570 S$: TST Ro IF CONSECUTIVE ZERO BANK 
5 11128 00112 BNE 10$ : THEN DO NOT PRINT MESSAGE 
§ 017162 00520 INC R2 ; ELSE UPDATE CONSECUTIVE ZERO BANK FLAG 
1164 022703 177777 CMP 4177777, R3 IF NOT 32K, 128K OR 2M BOUNDARY 
8 017170 964028 BNE 9$ ; THEN GO PRINT HESSAGE 
7172 767 161340 Si MMAVA ; ELSE IF 22BIT ADDRESSING 
0 : 1176 00415 BMI 7$ ; THEN GO WORK ON 22 BIT ADDRESSING 
7 10 BNE 6$ ; OR GO WORK ON 18 BIT ADDRESSING 
30 112 09 767 162566 TST FLG30K : ELSE IF NOT 30K SYSTEM 
7 06 1412 BEQ 8§ HEN GO ADJ TO 28K BOUNDARY 
4 1721 162703 010000 SUB #10000 ,R3 ; ELSE ADJ TO 30K BOUNDARY 
7214 000411 BR 9$ ;AND GO PRINT 
017216 022704 000003 6$: CMP #3,R4 IF NOT 128K BOUNDARY 
8 1838 1006 BNE 9$ ; THEN GO PRINT 
3 617224 000403 BR BS ; ELSE GO ADJ T0 124K BOUNDARY 
17226 022704 000077 7$: CMP #77, R4 ;IF NOT 2M BOUNDARY 
REESE 061002 BNE 9$ ; THEN GO PRINT 
4 017234 162703 020000 8$: SUB #20000 ,R3 ;ADJ HIGH MEMORY TO BELOW I/O PAGE 
7240 9$: 
. ty 40 010346 MOV RS, -(SP) .;PUSH R3 ON STACK 
17242 010446 MOV Ra: -(SP R4 ON STACK 
of 44 016746 000252 MOV LMEMLO, - (SP «PUSH LMEMLO ON STACK 
7250 016746 000250 MOV LMEMHI, -(SP ::PUSH LMEMHI ON STACK 
3547 017254 4567 002472 JSR R5 $PRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
7260 0240 5 ‘WORD FROM “ADDRESS OF HESSAGE TO BE TYPED 
; 8 017 6 6303 ASL R3 ;SHIFT BIT 15 INTO CA 
017 006104 ROL R4 ‘SHIFT BIT 1 TO ALIGN WITH BITS 17-16 
0 ( 7 66 006003 ROR R3 RESTORE BITS 14-0 
7 006367 000226 ASL LMEMLO :SHIFT BIT 15 INTO CARRY 
; 7274 006167 000224 ROL ‘SHIFT BIT 15 TO ALIGN WITH BITS 17-16 
isa G1Ys0e Guanes Goes ro) GRRE, -csey MERGED Poi" cu 
+ UE ADDRESS BITS 21-15 
;« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE 
:« WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #«SYSMACe«, 
017310 106746 p -( SP sPUT THE PROCESSOR STATUS ON THE STACK 
017312 105066 000001 CLRB =: SP sHIGH BYTE CLEARED TO INSURE KERNEL MODE 
017316 004767 003656 JSR PC, $TYPOS ;GO TO THE SUBROU 
ot 73i8 003 ‘BYTE 3 -; TYPE 3 DIGIT(S) 
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.BYTE 
MOV 


THE NEXT TWO INSTRUCT 
WIHTOUT USING A “TRAP 
MFPS -(SP 


CLRB 


THE NEXT TWO INSTRUCTIONS mit 
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ROUTINE. - 


0 
LMEMLO, - (SP) 


THE NEXT TWO INSTRUCTIONS oabity 
WIHTOUT USING Ay TRAP INSTRUCTI 


iC SP 
ec $TYPOS 
5, SPRINT 
R4,-(SP) 
ION 
"4 
i( SP 
rt, $TYPOS 
RB, -(SP) 


as | USING A “TRAP” INSTR 
MFPS -(SP 


CLRB 
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NT TO NEXT 8K BANK 

H IF MORE TO TEST IN THIS MAP ENTRY 
E POINTER TO NEXT TABLE ENTRY 
I WITH TABLE 
AST BANK AVAILAB 

Ee 


PMAP PRINT COMPL 
eacre PRINT FLAG 


- 
— -~<r- ~< 

rT > 

= 
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COROUTINGS TO SET UP DATA FOR ERROR PRINTOGT ROUTINE. 


| 
—_ rae eat _ nov eae Ra oe ane is R4 
o178i8 o13800 HOV 3p): Ri + sDOP STACK INTO t 
ia 017520 000207 13s: RTS PC SRETURN TO CALLER 
017522 000000 LMEMLO: .WORD 0 W MEMORY ADR ... LO 16 BITS 
nies eee Ue a) Ard 
as . - : tO BE MORES 
.SBTTL SCOPE HANDLER ROUTINE 
iis HTS ROUTINE CONTROLS THE LOOPING OF SUBTE TESTS, IT WILL INCREMENT 
Ao HT TGR Te) AD ye HCA 0 
; HE Sh SWITCH OPTIONS PROV IDED BY Sfuis ROUTINE ARE: 
a =] rN a RATIONS 
;*#SW09=1 
82 = LOOP ON TEST IN SWR<4:0> 
;* ALL 
‘ SCOPE ; ;SCOPE=I0T 
017532 COPE: 
;# THE NEXT TWO INSTRUCTIONS ran E AN INTEREACE 10. THE  $CKSWR ROUTINE 
a j# MIHTOUT USING A *TRAP® INSTR a BY Cee 
34 108066 000001 CRB «tgp HIGH pai: I ys | KERNEL MODE 


HOV sy ie 60, Lie na STACK, SIMULATE JSR PC. 


0516 
i O30777 040000 161354 18: be ae ESENT TEST? 
: geveeSTART OF CODE FOR THF ¥OR tes abeese. 


017556 000416 AXTST 124 RUNNING ON THE °xOR" TESTER CHANGE 
SE HTH oy RY ENN HME Me eS © TE emo vee 
af i o13637 500008 nav 3 OOPERRVEC Bs EME HE_ERROR. ECTOR 

1 ee oe 

OL fe14 032777 000400 161306 meee “3 ata scasuee ait Bes SPEC. TEST? 

ane io sss af ai, : ao WFR Si 
Hae iy ie an ae 

01 7642 05767 161225 2: TSB SERFLG as AN YES on OCCURRED? 

$7888 a 161231 161215 age SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
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VMSAB 
SCOPE HANDLER ROUTINE SEQ 0091 
017656 101015 BHI 3$ BR IF NO 
017660 032777 7 001000 161242 IT 381709, aSWR ‘ib OP ON ERROR? 
0: 7670 Sti 161204 161200 73: HOV sL PER. SLPADR +;SET LOOP ADDRESS TO LAST SCOPE 
017709 0 161167 4s: CLRB  - SERFLG ;;ZERO THE ERROR F LAG 
017704 7 CLR STIMES ;;CLEAR THE NUMBER OF IT ITERATIONS TO MAKE 
017710 13 BR i$ sESCAPE TO THE NEX 
0 a é 0 277 004000 161210 35: Bi 61711, 0SUR is INHIBIT PTERATIONS?. 
ut 2 78) 161254 Ist SPAS 531 FIRST PASS PASS OF opr GRAM 
177 5261 161140 INC $TCNT + INCREMENT ST ERAT SCN an 
1778 026 ef "91220 161132 CHP sTIMES, SICNT + a THe i ER OF TT RAT NS MADE 
83 Waa 82967 000001 161122 1%: MOV #1, $ICNT : 7REIN THAR 17 FRATEON Many dt GUNTER 
17752 016767 000052 161200 MOV SHXCNT , STIMES - ET ER OF ie ATIONS TO 
7700 i é 7 161106 $SVLAD: INCB  $TSTNM ;;COUNT TEST NUMBERS 
17764 116 67 161102 161206 HOVE STSTNM, $T STN :3SET TEs ER IN APT MAILBOX 
017772 011667 1611 V SP), $LPA ;;SAVE SCOPE LOOP ADDRESS 
7776 011667 161076 MOV SP)’ $LPERR ;; SAVE ERR LOOP ADDRESS 
0002 67 lol tad CLR ESCAPE — ;;CLEAR THE ESCAPE F ERROR ADDRESS 
06 112767 01 161071 MOVB a SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
4 016777 161052 161110 $OVER: MOV eT STN BDISPLAY : ;DISPLAY ESI NUMBER 
020022 16716 161050 MOV $LPADR.(SP 7 UGE RET ADDRESS 
0 02 7 END i | RTS pC iEXT Sc ROUTINE BACK og TEST. 
000001 SHXCNT : MAX. R OF ITERATI 
NEXT TWO INSTRUCTIONS TROT HON As AN IN ERFACE T0 tHe ICKSUR ROUTINE 
a + urnTOUT USING A “TRAP” INSTR ON ¥ ‘okgtee OR BY #51 SHA “on 
aE 18066 000001 CLR itp} HIGH BY te “CLEARED 0 INSURE The st MODE 
40 004767 000542 $CKSWR ;GO TO THE SUBROUTINE 
— .SBTTL PRR HANDLER ROUTINE 
g8 TS ROUTINE ILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT 
Ue | R HE ERROR FLAG A ERROR COUN 
; Th ANE To THE ADDRESS of THe ERROR CALL 
fe & cae TYP ON 
WIT TIONS BY THIS ROUTINE ARE: 
a ssutse4 =} LT fe TYPEQUTS 
;#SW10=1 Pats ON 
: nan =] 
_— ERROR N ERROR=EMT AND N=ERROR ITEM NUMBER 
FERROR: NEXT TWO INSTRUC oan re AN me f° THE $CKSWR ROUTINE 
- > WIHT OUT | A. ™ Ap" INSTRU Sook erhTuS THe $n 
oie 158066 00000: CL HIGH ft KERNEL MODE 
767 000530 JSR SCKSWR | 
ed 6 rf i {S53 R CODE WORD. 
18826 161008 7$: SFLG $3 % > FI 
001915 0776 161034 y oH stret.00 LAY + DISPLAY I THe FLAG aoAND ERROR FLAG 
0076 083777 2000 161024 BIT wBiTIO oR LL ON ERROR? 
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O) 
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~~ 


3599 





oN 


I NPP) 


$38 2 
Bee 


S 
oO 
rm 
oO 
~ 


sas 
: 
156700 


205 


001842 
000001 


o62152 


160714 


000001 


000354 
001000 


ieorto 


160702 
012722 


001452 


160572 





160754 
198783 
60762 


161024 
000004 


160670 


000042 


BE i$ ; NO 
. bho Seow 
HOY ( RPC ;;6ET ADDRESS ERROR UCTION 
‘ti uae ae is i ae ERROR ITEM CODE 
, SERRTYP TINE 
ee ee 
CHEB SAPTENV, SENV BK IN N_APT MODE 
move 4ST TEMB.215 + TTEN NUMBER AS ERRGR NUMBER 
_ J Re pc. Fag RE DORT F FATAL ERROR TO APT 
22%: - oy ;;APT ERROR LO 
es: Be WR : HALT 3 R 
GPL $ ;; SKIP NUE 


TN INT TO THE oe ,ROUTINE 
OR GY *&SYSM 


pipe SITUS BT, Sim, 


: HALT 
;« THE NEXT TWO INSTRUCTION rai 
:# WIHTOUT USING A “TRAP” NSTRI 


ces it8P3 


HIGH 

R f $CKSWR GO T Whe UBROUTT 
3$: i tT09, aSWR f PON ERROR SWITCH SET? 

V RR, (SP) :;FUDGE RETURN F PING 
4$: nt SESEAP APE i SCHEER FORCAN ESCAPE AD ESS 
- V SESCAPE,(SP)  ;;FUDGE RETURN ADDRESS FOR ESCAPE 

CHP #$ENDAD, 0242 yoo AUTO-ACCEPT? 
6$ : BRANCH IF NO 


HALT 
6$: 


RTS PC 
5 REREEREERERESERS SARE EAAERARESAS AREER SARE RARE REREAEAEAREA SE EE EES 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


;*THIS oe USES THE “ITEM CONTROL BYTE” ($ITEMB) 


Y $ T I C 
SOL Diat® Wee MPMUSRiATE WEYRERTARE cote Tie"Elasee”CPETOD 


SERRTYP: 


R R5 SPRINT ;GO PRINT OUT THE HE FOLLOWING MESSAGE 
“WORD = SCAL ;ADDRESS OF MESSAGE TO BE TYPE 
MOV RO, -(SP) sSAVE RO 
CLR -PICKUP THE ITEM INDEX 
BISB  $ITEMB.RO 


ne a 


SEQ 0092 








a ————E-<———.e —e- 5 ee ee oe Soe ee 


(Cy) 


a 
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ERROR MESSAGE TYPEOUT ROUTINE 


Ko aed 


SEQ 0093 


020312 001010 
020314 016746 


080852 108066 


030883 O00516 
909 


Seeee 
POR ROMS 
283888 
Be 


S Seees 


OOOCOCOCOOCSoOS 
Se Seeeeeseseree 
SOSESSESNES 
= 
Sam 
SLBSSS ESS 


oui 


160566 


000001 
002672 


ie0tes 


7 060006 


001354 
001346 
000006 
001332 
001324 


160070 
160062 


000001 
002534 


000001 
002236 


;# THE NEXT TWO INSTR 
: seit USING A “TRA 


nig 


es: 
3$: 
4$: 


5$: 


6$: 


ee @e 
+ © 


7$: 


=e @e 
+ + 


177777 «177777 :«=17$: 
04 


BNE 
MOV 


CLR 


i$ 
SERRPC , - (SP) 


1(5P 
: $TYPOC 


sERRPC, $VERP 
— $VERP 
RO 


RO oRTB RO 
CRON. 3s 
R5, $PRINT 


5 $PRINT 
$CRLF 
RO)+,4$ 


RS, $PRINT 


RB $PRINT 
Ri, -(SP) 

RO)+ RL 

LOCF, Ri 
Ca 
‘ah 


re hy ru AASB 


auth aad A "TRAP" 

CLR 1 ep 

JSR PC, $TYPOC 

Berit 

MOV a(Ri)+,-(SP) 
THE NEXT TWO INST ‘ 
WIHTOUT USING A " 

i¢3 

CLRB = AC SP 

JSR PC, $TYPDS 

BR 8$ 

CMPBsw-1, -1(RO) 

BNE 18$ | 


Mar 


iow BYTE CLEARED 10 1 BB Thal So 


ON TOT 


ial UAL TF ot OALRE NOY 


sFORM bck PO NTER. 
;G0 print? OUT NER Ba itt 
:G0 PRINT ‘HOTer THE E POL rte 


; ADDRESS Pr te TO BE T PED” 


:G0 print 


th 
BRE Pel ETO BE TYPED 


; ADJUST é INTER, 
CHECK 


;IF ITEM NUMBER R 1S ZERO, JUST 
sau Wr 


10 VA ire ROUTINE 
AS CALLED” OR ae SACs 


BR UT INE 


WS" YORK FOR THe ERROR TABLE” 


RROR tata ae 


ent PEER” POINTER 


TYPE 
HEADER?” POINTER GOES HERE 


3 TCKUP "DATA TABLE” POINTER 
:BR IF NO DATA 10 BE TYPED 


SADJUST POINTER 


ICKUP “DATA FORMAT” POINTER 


K THe ORMAT 
jBR F NOT 16-BIT OCTAL 
ai chy E afRids FOR TYPE T 
AVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
RUCTION AS, AS CALLED FOR BY «aSYSMAC&« 
:PUT THE PROCESSOR STATUS ON THE StA CK 
iMIGH BY] BYTE CLEARED TO INSURE KERNEL MODE 
:G0 iat THE SUBROUTINE 


isa Ne NOT FBR TRE UT 


+,-(S 
RUCTIONS AN INTEREAG 10 THE $TYPDS ROUTINE 
T AP" TN INSTR rave TT ON “ep knee econ OR BY « aSySHACes 

SNOT ERRER STATUS ON THE STACK 
HIGH. BYTE LEARED 70 INSURE KERNEL MODE 
PSW_RETURN. 
ae THE SUBROUTINE 
HECK FOR 22-BIT ADDRESS FORMAT. 
RI DRESS FORMAT. 


F NOT 22-BIT ADDR 





-_—- 


- a ae 


ae 


020544 





013 

i 
10 
005046 
113116 


106746 
5066 


et 

021547 
004567 
01884 
016746 
106746 
105066 
004767 


002736 


000001 
002430 


001170 


001154 


040 


000176 
160312 
160306 
177600 
000007 
169256 
001074 


001066 
157304 


000001 
002320 





000 


160314 


000001 


eS ee eee oe ee 
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ECO OUT ROUTINE . ” 


MOV @(Ri)+, -(SP) ;PUT THE DATA ON THE STACK. 
JSR PC, STYPAD ;DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
- BR 8$ : SKIP 
CLR {SP} ;CLEAR THE WORD ON THE STACK. 
MOVB Ri)s, (SP) ‘PUT THE DATA ON THE STA ; 
.« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO TH TYPOS ROUTINE 
;« WIHTOUT USING A "TRAP” INSTRUCTION AS CALLED FOR BY YSHACs 
MFPS i638 sPUT THE PROCESSOR STATU 5 “STACK 
CLRB  =-«A( SP :HIGH BYTE CLEARED TO INSURE KERNEL MODE 
ON PSW RETURN. 
JSR PC, $TYPOS ;GO TO THE SUBROUTINE 
‘BYTE 3 -TYPE 3 DIGHIS, 
"BYTE 1 ;TYPE LEADING ZEROS. 
8$: ist cR1) iI THERE ANOTHER NUMBER? 
JSR R5 $PRINT :60 PRINT OUT THE FOLLOWING MESSAGE. 
“WORD 118 :ADDRESS OF MESSAGE TO BE TYPED 
BR 6$ sLOOP 
9$: MOV $°)+ Rt sRESTORE Ri 
10$: MOV SP +, RO RESTORE RO 
JSR $PRINT :60 PRINT OUT THE FOLLOWING MESSAGE. 
giiQRD SCRLE - ADDRESS OF MESSAGE TO BE TYPED 
11$: -ASCIZ / f spousLe Space 
.SBTTL TTY INPUT ROUTINE 


. TRE RAS a akan oR 
: OFTWARE SWITCH REGISTER CHANGE ROLTINE. 
SSOF TUARE SuLTCH REGISTER CHANGER 

OUTINE IS ENTER FROM THE TRAP H SANDLER AND WILL 
s4SERVICE THE TEST EDR HANGE di SOFTWARE SWITCH REGISTER TRAP CALL 


~ WH RATING IN TTY FLAG 
SCKSUR: CHP WREG, Suk iTS I THE SOFT-SWR SELECTED? 
‘ -;BRANCH IF NO 

TSTB a$1KS : CHAR THERE ? 

BPL :;IF NO, DON'T WAIT AROUND 

MOVB sein (83 >;SAVE THE CHAR | 

BIC 8tC177 -:STRIP-OFF THE ASCII 

CMP i318 IT A CONTROL G? 

BNE eT ;;NO, RETURN TO USER 

CMPB 0s SAUTOB, #1 ARE WE RUNNING IN AUTO-MODE? 

BEQ 15$ »:BRANCH IF YES 

JSR R5, $PRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
pe “WORD © $CNTLG :ADDRESS OF MESSAGE TO BE TYPED 

JSR R5 SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 

“WORD  $MSWR ;ADDRESS OF MESSAGE 10 BE TYPED 

MOV SWREG, -( SP) SAVE SWREG FOR TYPEOUT 
;« THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYP OC ROUTINE 
-« WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #*SYSMACss 

MFPS “(SP -PUT THE PROCESSOR STATUS ON THE STACK 

CLRB  =s-1SP ‘HIGH BYTE CLEARED TO INSURE KERNEL MODE 

“ON PSW RETURN. 
JSR PC, $TYPOC ;GO TO THE SUBROUTINE 





SEQ 7 





a 
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TY INPUT SEQ 0095 
JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
at t2186> — as WORD sHNEY ;ADDRE S OF NESSAGE TO BE RVPED 
Orta 00 "  €LR “t353 TE NEW SWR 
0716 105777 160212 7$: TSTB. 2 saa$ TKS :;CHAR THERE? 
154 19S he 06 MOVB 4 @STKB,-(SP) SEPICK UP CHARS 
} eats ara BIC enc? (3) ;:MAKE IT 7-BIT ASCII 
8507 831629 0025 9$: CHP (SP 43 i:dS TTA CONTROL -U? 
6 o142 804 001004 JSR R5, SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
6 0746 021542 WORD  $CNTLU sADDRESS OF MESSAGE TO BE TYPED 
0207 706 000006 20$ ADD #6 SP :; IGNORE PREVIOUS INPUT 
0 84 atts BR 19$ -;LET'S TRY IT AGAIN 
S5o7e> o0ie0s = 2. oe + OB AHCH TENG” 
Sie gue BRP luc ae FST on 
SP), aSWR : SAVE NEW SWR 
021060 386i, Sonos fee 118 MOD «86 SP ttaMEAR UP STACK 
. R RS $PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
6 1816 oot _—e ‘36RD §CRLF iE ODRESS OF MESSAGE TO BE TYPED 
0 2 126781 160107 000001 CHPE SINTAG, #1 i RE-ENABLE Ny KBD INTERRUPTS? 
0 e 5500 000100 160104 ‘i HOV #100, a$TKS i RE-ENABLE TTY KBD INTERRUPTS 
4767 001160 16$: JSR PC, $TYPEC +;ECHO CHAR 
6 | 36 tote? 000060 CHP (SP). #60 : CHAR < Q? - 
o te CE, 000067 Hp (85), 267 -:CHAR > 7? 
1050 553015 GT 18$ : BRANCH IF YES 
8510 042726 TC 460 (SP)+ :;STRIP-OFF ASCII 
021 508) 000002 TST aC SP -;1S THIS THE FIRST CHAR 
021062 SR a8s BEQ ; : :BRANCH IF YES 
021064 006316 ASL SP -:NO, SHIFT PRESENT 
ini See Sh a ee 
072 005266 000002 17$: INC 2 $e) ;:KEEP COUNT OF CHAR 
7777 BIS -2(SP), (SP) -:SET IN NEW CH 
a titi —— sti BR 7$ -:GET THE NEXT ONE 
RS, SPRINT ;GC PRINT OUT THE FOLLOWING MESSAGE. 
ae ag gees ae anaes” 
i eS MN a ee ee OOO 
jATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
ABR vex BAT HEE CHARTER Om HE TT 
S tWITH PARITY BIT STRIPPED OFF 
LRDCHR: MOV SP), -(SP) .;PUSH DOWN THE PC 
SL A ay come A 
$1180 100375 BPL 1$ -:A CHARACTER 








| -8 
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SEQ 0096 


TY INPUT 
021132 117766 160000 000004 MOVB $1kB, 4( SP) ;;READ THE TTY 
021140 04 166 77600 000004 BIC es 4(SP) ;;GET RID OF JUNK IF ANY 
i 02 2 500804 000023 CMP +315 IT A CONTROL-S? 
0 3 BNE 3$ :;BRANCH IF NO 
1156 105777 157752 2$: TSTB = @$ TKS ;;WAIT FOR A CHARACTER 
i 375 BPL 23 ;;LOOP UNTIL ITS THERE 
0 17746 157746 MOVB $P :;GET CHARACTER 
Q21170 042716 177600 BIC BciTh, (3p ;;MAKE IT 7-BIT ASCII 
14 02 000021 CMP 451 :;1S IT A CONTROL-Q? 
0 BNE 2$ :;1F NOT DISCARD IT 
00 R 1$ :;YES, RESUME 
0 026627 000004 000021 35: mp 4( SP), #$XON :;1S IT A RANDOM XON? sRANOO1 
0 é 001 744 EQ 1$ ; BRANCH IF _YES :RANOO1 
021 026627 000004 000140 CMP 4(SP), #140 -IS IT UPPER CASE? 
0 ; 407 BLT 4$ BRANCH IF YES 
0 2! 000004 000175 CHP 4¢sP ), #175 ORANG TF A SPECIAL CHAR? 
042766 000040 000004 BIC #40, 4(SP) »:MAKE IT UPPER CASE 
051542 000002 4$: RTI -:G0 BACK TO USER 


Hd dada alba odd dud ibidk idk uuua oe biked kkk ticks 
iATHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 


;* ROLIN 3 A STRING FROM THE_TTY 
5 RETURN HERE ii PORE SS OF FIRST CHARACTER WILL BE ON THE STACK 
021244 010346 iRDLIN MOV R3.-(SP) 3 Tee oe WILL BE A BYTE OF ALL O'S 
a215 6 ELT, CLR -( LEAR THE RUBOUT KEY 
1250 012703 021532 1$: MOV #$TTYIN,R3 ;GET ADDRESS 
55 ! it ; 021542 2s: CMP STTYINGS.., »R3 : BUFFER FULL? 


LOS ;BR IF YES 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN SRTEREACE TO THE $RDCHR ROUTINE 
;* WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY *«#SYSMAC#s 


021262 106746 MFPS ($B) “BUT THE PROCESSOR STATUS ON THE STACK 
021 105066 000001 CLRB 1 SP iHIGH BYTE CLEARED TO INSURE KERNEL MODE 
4767 177620 JSR pc SRDCHR :GO TO THE SUBROUTINE 
51545 te: 13 MOVB  (SP)+ (RS) -;GE1T CHARACTER 
0 1 16 125 13 000177 10$:  CMPB  #177,(R3) © 31S IT A RUBOUT 
02130 10 4 BNE > ::BR IF NO 
: 3718 IST (SP) iis THIS TH E FIRST RUBOUT? 
767 000134 000212 MOVB 3s #\, 9$ :; TYPE A BACK SLASH 
oat a04367 $00436 JSR R5, $PRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
0 : 021530 ‘WORD 9 ADDRESS OF MESSAGE TO BE TYPED 
1 12716 177777 MOV 4-1, (SP) ::SET THE RUBOUT KEY 
1330 3 6$: DEC R3 : ;BACKUP BY ONE 
0 020527 021532 cH RS .#8TTYIN Hi EMPTY? 
4 M4 67 000164 MOVB = (R3),9$ ‘SETUP TO TYPEOQUT THE DELETED CHAR. 
§51380 01880 JSR fi. "SPRINT 60 PRINT QUI THE FOLLOWING HESSAGE. 
O513e4 | NOS716 os: fe te G0 READ ANOTHER CHAR, 
a: een ee 
7 000360 JSR. oS, ~—~—Ss SPRINT «=:GO PRINT OUT THE FOLLOWING MESSAGE. 
4398 Goiegg 1% "WORD 98 ADDRESS OP MESSAGE 10 BE TYPED 





-_-—_ 





— ew eee ee 








re ee 


—— | ame ewe eee eee eee eS ee ee 


| 
| 
) 
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TY INPUT ROUTINE SEQ 0097 
021374 005016 CLR (SP) ;;CLEAR THE RUBOUT KEY 
ne seerts 000025 7$: CHPB #25, (R3) 3318 CHARACTER A CTRL U? 
404 004567 000342 JSR R5 $PRINT 160 PRINT OUT THE FOLLOWING MESSAGE. 
021410 021542 “WORD © $CNTLU sADDRESS OF MESSAGE TO BE PYPER 
4 116 BR 1$ iB TAR re 
0214 713 000022 8$: CMPBs«# 22, (3) i GHAR AC A "tR"? 
$514 rs EL RB 283) L ir HAR 
d f 003587 000322 Ss iB $PRINT ‘s cAR Th ¢ THE EE ER OWING MESSAGE. 
0 4 4 “WORD $CRLF DORESS OF MESSAGE TO BE TYPED 
) 4 67 000314 Sk Roy a $PRINT iG nb i NT OUT THE FOLLOWIN G MESSAGE. 
iis 355 a8 ‘i BR 2$ ip ; Re xtp AN ita: aber 
6 442 004567 000304 JSR R5, $PRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
0 14 001170 WORD QUES ADDRESS 70 MESSAGE TO BE TYPED 
450 000677 BR is CLER THE BUFFER AND LOOP 
0 14 i 67 900052 3$: VB (fs), .9$ iF CHO RACT E 
4 67 JSR $PRINT iG Tout THE FOLLOWING MESSAGE. 
021462 021530 WORD 93 RDDRESS a HESSAGE TO BE TYPED 
31464 120783 000015 CMPBs« #15, (R3)+ i eat RETURN 
j $ Aik 77777 BL RB ae ‘< ifl AR Teta 15 
nates 008367 $00250 JSR . ad $PRINT iG 60 BRIN INT 0 OUT THe FOUL Oh WING MESSAGE. 
85 te b4 85a 36 ier 6p). i EAN URC RES FROM THE STACK 
021506 012603 MOV SP)+,R3 
0 i 19 ot 646 MOV 5P (SP) ia he STACK AND PUT ADDRESS OF THE 
016666 000004 000002 MOV 4¢SP 5, 2CSP) +3 FIRST ASCII CHARACTER ON IT 
oot 012766 021532 000004 HOY #$TTYIN, 4(5P) 
021 02 RTI s RETURN 
021530 000 9$: -BYTE 0 STORAGE FOR ASCII CHAR. TO TYPE 
Ss tezs $TTYIN: .BLKB 8.  HESERVE. RVE 8 BYTES FOR TTY INPUT 
oe a 136 135 015 §$CNTLU: .ASCIZ 740 <15><12> , CON mye 
aot 4? 136 407 015 $CNTLG: .ASCIZ /tG/<15><12> gg "G" 
021 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = 
021557 127 20 040 
0 é : 40 000 
04 040 116 $MNEW: .ASCIZ / NEW = 
9213/0 105 127 040 
021573 075 040 000 
3601 -SBTTL READ AN OCTAL NUMBER FROM THE TTY 


doi tok ok bk sok tok i do a OR A RR A A RARE RE EER EA EERE 
iATHIS ROytit ty READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


& CHANG 
THE NENPUT HARA TERS WILL BE C TO INSURED THEY ARE LEGAL 

;*OCTAL aL AN age CHAR AC TER is READ AMPLE re ti a rey 
;*FOLLOWED B ARRIAGE RETUR E eee 

THEN BE RETYPED. THE INPUT is “TERMINATED By" TYPING” } CA RAGE. RETURN, 


“ RDOCT ;;READ AN OCTAL NUMBER 
k RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 
a ::HIGH ORDER BITS ARE IN $HIOCT 





~~  ——— ee ee eee eee ee eee 


READ AN OCTAL NUMBER FROM THE TTY 
15 011646 

010046 
010146 
010246 


000004 000002 


000001 
177416 
000102 


PR ee A 
ssees 5 
Re 


000060 
000067 


DAMNANDWG 


VSHUS SD 


Ssss 


177770 
eat 
000032 


000014 
000006 


SSSSSSSLLLLLESS RE 


NonoaS 


PUWNUIDONONONOE 


JIS SIS SI ISI SI SSSI SII SINION 


Qaroo 

SSS 
AES 
oo 
oo 
oor 
Oi 


Sosa 


oo 
Own 
fo 


012567 


000020 
066767 156550 000012 


106746 





D MEMORY EX MACRO Y05.02 


$RDOCT: MOV 
MOV 
MOV 
MOV 
MOV 
1$ 


2$: MOVB 


3$: 


<<a OOrTr rr 


4$: 


aH << 


Bi -HASSSSOHDOHONOnOu 


Cc: 

W=w 

aw 
© 


5$: 
. WORD 
BR 

$HIOCT: .WORD 
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(SP),-(SP) ;;PROVIDE SPACE FOR THE 
4¢ SP 2 SP) ;; INPUT ER 

RO, -(§ -;PUSH RO ON STACK 
Ri,-(SP >;PUSH R1 ON STACK 
2,-(SP) ; PUSH R2 ON STACK 


. THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDLIN ROUTINE 
* wt | ee we INSTR 


UCTION AS CALLED FOR BY #«#SYSMAC«s 
- sPUT THE PROCESSOR STATUS ON THE STACK 
1(SP) sHIGH BYTE CLEARED TO INSURE KERNEL MODE 


| “ON PSW RETURN. 

PC $RDLIN ;GO0 10 THE SUBROUTINE 
(SP). RO ::GET ADDRESS OF 1ST CHARACTER 
RO,5$ >:AND SAVE IT 
RI :;CLEAR DATA WORD 
(RO)+,-(SP) ;;PICKUP THIS CHARACTER 
3$ -;IF ZERO GET O 
#' 0, (SP) ;;MAKE SURE THIS CHARACTER 
4s :;I1S AN OCTAL DIGIT 
#17, (SP) 
4s 
Ri ;3%*2 
R2 
Ri ;;*4 
RO 
z - 
#tC7. (SP) »;STRIP THE ASCII JUNK 
cS )+,R1 :+ADD IN THIS DIGIT 
(SP)+ ss GLEAN TERMINATOR FROM STACK 
Ri, 12(SP) »- SAVE THE RESULT 
R2. $HIOCT 

SP)+,R2 ;;POP STACK INTO R2 

SP)+,R1 -:POP STACK INTO R1 

SP)+.RO : :POP STACK INTO RO 

SP}+ :;CLEAN PARTIAL FROM STACK 

0 ;;SET A TERMINATOR 

RS, SPRINT ;G60 PRINT OUT THE FOLLOWING MESSAGE. 
R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
$QUES sADDRESS OF MESSAGE TO BE TYPED 
1$ ;; RY AGAIN . 
0 ;:HIGH ORDER BITS GO HERE 


| edad aod aoe too oa dob ek ek bk ek ek ek 
i” TT 0 op RELOCATED MESSAGE ADDRESSES TO THE $TYPE ROUTINE. 


SPRINT 


E 
;* THE NEXT TWO INSTRUCT 
;* WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED 
MFPS -(SP) 


<MESSAGE VIRTUAL ADDRESS> 


KKAKARAKKAKAKAEKAKAREKARESERAKEK ERASER REESE RE ERA ERAKEREREEEES 


5)+, i$ ;GET THE MESSAGE VIRTUAL ADDRESS. 
Loct, 1$ -MAKE IT PHYSICAL. 

UCTIONS PROVIDE AN INTERFACE TO THE $TYPE ROUTINE 
FOR BY *«SYSMAC 


kx , 
;PUT THE PROCESSOR STATUS ON THE STACK 


SEQ 0098 





-- ee — ee ee we ee eee eee ———— ew oS 


| gee AN oct 


021766 105066 000001 


021772 004767 000004 
a3 000000 


Oo 
Po 


Oooo0co 
Oormono BOR 





COOoQoooCooooooooe 


RESEVREON HORS SVOA HO SOTO 


POPOPOPOPOPOPOPOPIMMONPoNPpopop/fnofofyyfrorororonry 


foronD 
yd ed ed ed ed ed ed edd 


Oo 
m™~ 
TM 
— 
oe 


we ~- 


ahi8 


SUS ENONAS ESS 
Pwdoo 


SIO IQOOO— 
ONGcn een ae tee no 


SD OMI NODUIONWN— 


Moro 
IoO~j > 
Mw 


157141 


000002 
000001 


000100 


000004 
000274 


000040 


000002 
000011 
000200 


177626 
000202 


000056 
157002 


156772 
000001 





MEGAWORD MEMORY EX MACRO Y05.02 
L NUMBER FROM THE TTY 


157164 
157155 


157133 





il 
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SEQ 0099 
CLRB 1(SP) ae BYTE CLEARED TO INSURE KERNE 
sON PSW_RETURN. —_ 
JSR Pl. $TYPE G0 TO THE SUBROUTINE 
1$ -WORD 0 CONTAINS THE PHYSICAL MESSAGE ADDRESS. 
RTS RS sRETURN. 


.SBTTL TYPE ROUTINE 
+ saueepenerestneseresnebesensssstossetcsrooseresenesesetonesceens 

;*#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE W aH A 0 BYTE. 

;#THE ROUTINE WILL rim. A NUMBER OF NULL CHARACTERS AFTER A LINE eee D. 
;#NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


: #NOTE2: $FTLL ts CONTAINS THE NUMBER OF FITTER CHARACTERS REQUIRED. 
isNOTES: $FILLC CONTAINS THE CHARACTER TO FILL A 
a LOSING A TRAP INSTRUCTION 
‘. TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3k TYPE 
i# MESADR 
$TYPE: TSTB  $TPFLG :;IS THERE A TERMINAL? 
BPL 1$ :;BR IF YES 
HALT -;HALT HERE IF NO TERMINAL 
BR 3$ ; ; LEAVE 
1$: MOV RO (SP? SAVE RO 
MOV ao{ SP 0 :;GET ADDRESS OF ASCIZ STRING 
CMPB #APTENV,SENV —s«; ; RUNNING IN APT MODE 
BNE 62$ : ;NO,GO CHECK FOR APT CONSOLE 
ITB #§#APTSPOOL,$ENVM ;;SPOOL ME MESSAGE 
EQ 62$ :'NO.GO C 
MOV RO,61$ ; + SETUP NESSAGE ADDRESS FoR APT 
JSR PC’ $ATY3 +;SPOOL MESSAGE TO APT 
61$: . WORD 0 Hi ADDR 
62$:  BITB  #APTCSUP,$ENVM PT CONSOLE SUPPRESSED 
BNE 60$ -YES,SKIP TYPE OUT 
2$ MOVB (RO)+, -(SP) PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE $ -;BR IF IT ISN'T THE TERMINATOR 
TST (SPs TF TERMINATOR POP IT OFF THE STACK 
60$: MOV SP}+.RO sRESTORE RO 
35: ADD #9 (SP) ADJUST RETURN PC 
4s CHB eT, (SP) -;BRANCH IF <HT> 
CHPB gCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ -POP <CR><LF> EQUI 
BR R5, SPRINT G0 PRINT OUT THE POLL OWING MESSAGE. 
CLRB $CHARCNT ; CLEAR CHARACTER COUNT 
BR 2§ NEXT TER 
5$ JSR PC $TYPEC ‘'60 TYPE THIS CHARACTER 
6$ CMPB Es SELL, (SP) i315 IT TIME FOR FILLER CHARS. ? 
BNE :;1F NO GO GET NEXT CHAR. 
MOV §NULL, -( SP) -:GET 4 OF FILLER CHARS. NEEDED 
‘AND THE NULL CHAR. 
7$ DECB  ©=-«A( SP) -;DOES A NULL NEED TO BE TYPED? 





— eee (eee ee Oe 
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YPE ROUTI 


3615 


we = ————__—— 


o~~ 
Nm 


MTOM op -— 


os 
>r 


Pororono 


SSNS. 


Prono 


SLESSSeseseeesessseeoecaao ooo 
POorororo 
AMVISMO PY EAROOMR ROLES 


OOOCCOCOCOCOOOCOO 
Porororoprororororoporony 
rorororororororo 
ADNAN 


de ie 
OOo 


SES BATTERS 


RELLLLKALLSESS 


rororororo 
.-¥-o~4 
pr 


4 
022422 


~~ 
DANOUI-~I rH 


rm 
~ 
AADUALS LE DOM 
WS SONDNOA SWI 


000144 


000040 
000014 
000007 


156712 
156706 
77600 
0023 
156666 
156662 


177600 
000021 


156644 


00000 
00001 


000014 
000012 


000001 
000001 


000001 


000346 
000001 
000100 


000004 
000002 





000124 


156636 
000002 


000002 


000376 
000366 


000360 


156610 
156601 


000004 


BLT 6$ 
JSR PC, $TYPEC 
DECB SCHARCNT 
-HORIZONTAL TAB PROCESSOR 
bs: MOVB  # «=~. (SP) 
9$: JSR pc, $TYPEC 
BITB = #7. $CHARCNT 
BNE § 
TST (SP)+ 
BR 23 
$TYPEC: 
TSTB = @$ TKS 
BPL 0$ 
MOV a$TKB, -(SP) 
BIC #177600, (SP) 
CMPB Od S OFF, (SP) 
BNE é 
101$: 
TSTB =-_ AS TKS 
BPL 1$ 
MOVB  @$ TKB, (SP) 
BIC #177600, (SP) 
CMPB s«# SON, (SP) 
r BNE 101$ 
102e$: 
TST (SP)+ 
10$: 
TSTB =—_- @$ TPS 
BPL 10$ 
MOVB  2(SP), a$TPB 
CMPB ss CR, OC SP) 
BNE 1§ 
a ieee 
1s: BAP a F OC SP) 
BEQ STYPEX 
INCB (PC) 
$CHARCNT: WORD 0 
STYPEX: RTS pc 


;;B8R IF NO--GO POP THE NULL OFF OF STACK 
NULL 


;;GO TYPE A 

;;D0 NOT COUNT AS A COUNT 
; ;LOOP 

;;REPLACE TAB WITH SPACE 
>; TYPE A SPACE 

;;BRANCH IF NOT AT 

>;1AB S 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? 
-;BR IF NOT 


$3 CHAR 

;;STRIP EXTRANEOUS BITS 
->WAS CHAR XOFF 

-:BR IF NOT 
-»WAIT FOR CHAR 
;;GET CHAR 
:;STRIP IT 


;;WAS IT XON? 
::BR IF NOT 


»>;FIX STACK 
;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


5315 CHARACTER A CARRIAGE RETURN? 
em CHARACTER COUNT 

CHARACTER A LINE FEED? 
NCH_IF Y 


THE CHARACTER 
CTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


i 
ATY 
A 





sATYC 
#1, $FFLG 


RO, -( SP) 
Ri, -(SP) 

SHFLG 

#APTENV, $ENV 
*APTSPOOL, SENVM 


34(SP),RO 
#9 4(S?) 


-—————_ eae 


iityi. MOVB. #1 SFFLG cs TO REPORT FATAL ERROR 
Y . . 


ii PORT FATAL ERROR 
77/0 TYPE A MESSAGE 


-:TO ONLY REPORT FATAL ERROR 
;PUSH RO ON STACK 
: PUSH R1_ON STACK 
SHOULD TYPE A MESSAGE? 
-;IF NOT: BR 
i (OPERATING UNDER APT? 
: SHOULD SPOOL MESSAGES? 
-:GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 





SSSss 


de de ee d= Se Se Se oe oe 


SSSSoossss 


z= xxx 


= 
= 
SSSSSSSSSSSESESS 


= 
© 
S 
—_— 


“a 


SEQ 0100 





ee oe ee 


| KB 
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ey 


HPHPpHe ns 


> 


BRSRSEVS 


COSCO DOODDDOOOSOOOOO OOOO OOoCOo 
Rorororonronronrororonronronronrororonoronchorororononononohonon, 
> 
SESSLER RS 


MRO RRA AR A RRA 


SD ROS hE DOIUPOROMUO RUG ROSE 


rm 
I~ 


PERRLLLLLLLLSSRSLRLALLLS 


vPoro 
SII 
anon 


Sof 
re 


SLLsSssSaeSSSSsSssesss 
ORR OO ON MON I IRS td 
DAAAANN INH AH NMOS ~IN 
SII SID SUSAN AIO IR Pre no 


OMnrMPvwlvVw Po —* V1 Ve 


oo 
GAGSSa S 


——_—_ wee «eee 8 ee me ee SS ee 


156540 
156546 


156536 
Tabet 
0004 


156720 


000150 
156412 
156364 


1$: 


2s: 


6$: 
8$: 
9$: 
10$: 
11$: 
12$: 


SATY6: 


1$: 





Ow 
=x 
wo 


wo 
m 


= esses 
i 2DOO]SZWMMmwn = 


SS ASS 


52H 
neecocmumece “=< eee OS 


sHSGTYPE 


i$ 
RO, $MSGAD 


(RO)+ 

2$ 

§MSGAD ,RO 
RO 


RO, $MSGLGT 
#4, SMSGTYPE 


S$ 
a4(SP),4$ 
#2 A(SP) 
177776, -(SP) 
C, $TYPE 


SLFLG 


CR1)+ 


— 
— 
+ 


TR,R1 


sre eh we 1 0100 DIO 4 SE 
SSO Sr “FPforrro NnNwocorwvdtovy Oo 
iu an SS a © | bo 
reper 1 ee) "wen 
qa x 
ro" 
—) 
+ 


SFFLG 


SEQ 0101 


;;SEE IF DONE W/ LAST XMISSION? 
s;1F NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 
T 


;;SHOULD LOG AN ERROR? 
;>;1F NOT: BR 
;;GET ERROR # 


0 
- BUMP RETURN ADDR. 
;;POINT 10 TABLE START 
-:END OF TABLE? 


3% - £8 
;;PROPER ENTRY? 


;7 LF SO: GR 
;:MOVE PAST COUNTER WORD 
LOOKING 


E ? 
ny 1": W ENT 
;;BUMP E COUNT 
ss SHOULD tos * FATAL ERROR? 
i : 3 


- R APT? 
;;IF NOT: 8B 

;;FINISHED LAST MESSAGE? 
-:IF NOT: W 

»;GET ERROR # 

--BUMP RETURN ADDR. 
+;TELL APT TO TAKE ERROR 
-:CLEAR FATAL FLAG 
i CLEAR LOG FLAG 
-;CLEAR MESSAGE FLAG 
-:POP STACK INTO Ri 
-:POP STACK INTO RO 

RETURN 


NO MORE ROOM 
RY 


;;PUSH RO ON STACK 


;:GET SIZE OF STAT TABLE 

;;SEE IF DONE LAST COMMUNICATION 

-sIF NOT: WAIT 

;;SET MESSAGE LENGTH 

;:SET Mee AGE ADDR. 

>; TELL APT TO TAKE STATS. 

-;POP STACK INTO RO 
RETURN 





A CE CL LL LLL LL LLL LLL LLL LLLLBBDBLLLBLLLL LLL LLL LL ELL LLL 
- ——_— ee LE , 
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APT COMMUNICATIONS y ge : 


ROUTINE SEQ 0102 
0 7 $ATY7: 
720 Ol -(SP) ;;PUSH 20 ON STACK 
722 ote701 001334 MOV eshSTRT, R1 -:GET START OF TABLE 
0227 [sh i$: TST ss END. OF eet 
$5578 005021 RCRD + TT ERR ERROR COUNT 
a3 Lu 860994 a BR i$ : KEEP BREE ARTNG 
0227 012600 (SP)+,RO ;:POP STACK INTO RO 
02274 207 RT pc : RETURN 
02274 $MFLG: .BYTE 0 1 MESSG. FLAG 
02 74 000 SLFLG: .BYTE 0 LOG FLAG 
744 000 SFFLG: -BYTE 0 TOTAL FLAG 
900 on APTSIZE=200 
3398 Rr stato 
000040 APTCSUP 
3616 5p RARER EAREEAAARAEAAEEAEREAREREREASASERAREAEAEAEAAEAEEEEALE EE EE EES 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


;#THIS ROUTINE IS USED 10 rh p. 1 Ta ER 19 A_5-DIGIT 
SSTGNED DECTTIAL CASEI) Nhe 0 Fy PE rf OE ING ON WHETHER THE 


SMOPREE TE PORE OF MSATNE SPACE, Ow ot MRT Tee 
<r WITH SPACES. 


eet mov NUM, -(SP) ; ;PUT_THE BINARY NUMBER ON THE STACK 
‘ss TYPDS ‘'G0 10 THE ROUTINE 
5 010046 TYPOS: oy RO, -(SP PUSH RO ON STACK 
oe ile a SOME Ei 
0 o10846 it .- : ; PUSH AS 0 RS ON STACK 
ies Se Oe aes 
13766 090055 000001 NOVB Pus) eheie rea 
he Moa acd gi 
: CO Oe eed ee 
rn oo cs 
40 BLT 
ap8308 INC siPNCREASE THE BCD DIGIT BY 1 
op 703 oa LGheCK TF BCD BIGIT=0. 
05 NE 5§ : ;FALL 
Boe Ru BPP HRM pS oe o's 














=- 








—— en aS 
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gr T BUNARY 10 DECIMAL AND TYPE ROUTINE ’ at SEQ 0103 







| 
oh a a On ae cee 
0 uss 000040 i Oe #0, + MAK The 8c) uct ICH As eT READY A 72 
; MOVB Re (R3)s ssPUT 1 This peHARACTE a Bi R IN THE Seb ut an, 
7 $3 TST (RO)+ INCREMENT ING 
0 7 7 156734 MP RO, EIGHT ets THE TABL ET EX 
Se os |S 
6 ; a3 MOV RS R2 1360 7 UE LSD 
6 1 BR 6$ :;G0 CHANGE TO ASCII 
2 109726 8$: Is18 (SP). siWAS, THE LSD THE FIRST NON-ZERO? 
6 563 177777 177776 MOVB “At P), -2(R3) is YES- --SET THE SIGN FOR TYPING 
4 488 3 9s: CLRB a3} i SE THE TERMINA OR 
1560 MOV tee SS RE OP STARK INTO RS 
i ne ME SR 
i a sil ‘no a 2s 
§ 44 33190 ‘WORD  $DBLK iG0 PRIN op MESSAGE TO BE vPEB 
66 000002 000004 HOV eC 3h). 4(5P) :;ADJUST THE STACK 
sei HOV )+; (SP) 
0 Pe ae, RIT »;RETURN TO USER 
e4 Sb b1a4 , 1990. 
900012 10. 
3617 ° 7 —_ BINARY TO OCTAL CASCIZ) AND TYPE 


Fe ROUTINE Ts USED {0 CHANGE A 16-SIT BINARY NUMBER TO A 6°01 
na! a 16-BIT BINARY NUMBER T0 A 6-DIGIT 
L g¢ i A 1 ry 


tTyPos---ENT ETUP sipPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

eth " MOV NUM, -(SP) . ;NUMBER TO BE TYPED 
;% pa «CALL noe TYPEQUT 
‘4 ‘BYTE ON s3Ne1 T 6 FOR NUMBER OF DIGITS TO TYPE 
- manaies: a EADING ZERO 
;* 
is 1 AcTVPE LER LEADING EROS 
:&$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i431 YP OS OR $TYPOC 
a MOV NUM, -( SP) ; NUMBER TO BE TYP TYPED 
i481 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
i* HOY NUM,-(SP) . — ;;NUMBER TO BE TYPED 

00 017646 000000 iTypos: HO at SP}, -(SP UP THE 

04 67 000001 000213 SP frre + TOAD FER fe FILL SWITCH 

osi004 tt 67 000211 i tSB)." SOMODE +1 MBER OF DIETS 0 TYPE 

















RN = — ne ce 


—_——-, 





gviRne os MEGAWORD MEMORY EX MACRO Y05S.02 Monday 23-Dec-85 98:45 Page 22-22 
INARY TO 


TAL (ASCII) AND TYPE 


Te 


> 
pp 
Ononon 
oanan 
no 
on~ 


000147 


000006 
000134 
000127 
000012 


RS-LL 
BNEIAE 
BEERS 


SF 





OPO PROPOR FORO MOMOROROR Ds 





B-SSS 


VARARGEARET 


000100 
177770 


00040 
176866 


000032 


SUR) ONE POON I 





000002 





177770 


1 $8432 


ewtor 
vt OROMTOFT 
pts Bea ee 
WOO~s HC 





000001 000173 $TYPOC: 
paisa 000167 
000005 000156 $TYPON: 


1$: 
2$: 


3$: 


BOP SSoomoesooeoo xe 








. R4 









np ;;ADJUST RETURN ADDRESS 
#1,$OF ILL ;;SET THE ZER Ait WITCH 
#6, $SOMODE+1 -;SET FOR SIX(6 GITS 
#5, $0CNT ;;SET THE ITERATION COUNT 
R3,-(SP ;;SAVE R3 
R4,-(SP ;;SAVE R4 
R5,-(SP ;;SAVE RS 
$OMODE+1,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 
#6 ,R4 ss SUBTRAGT IT FOR MAX. ALLOWED 
R4, $OMODE -;SAVE IT FOR USE 
SOFILL ,R4 -+3;GET THE ZERO Fatt SUITCH 
beCSP) RS ss RTE? THE INPUT N 
;;CLEAR THE OUTPUT 
R5 :>;ROTATE MSB INTO “C” 
3$ ;;GO DO MS 
RD :;FORM THIS DIGIT 
a 
R5,R3 , 
R3 55 THIS DIGIT 
syrtOve 7 DIGIT? 
BA FTTTO. KS JUNK 
“r HIS 0? 
4 RESS ANYMORE 0‘S 
#'0,R3 ; a ASCII 
#' R3 I IF NOT ALREADY 
R388 YL 
RS, $PRINT T FOLLOWING MESSAGE. 
1. MESSAGE TO BE TYPED 
OCNT 
i TO 00 
4 DIGIT ISN'T A BLANK 
ast DIGIT 


; TRAP TO 4 REPORTED 


aoe £0 FLAG 


TE 
AP FLAG 
Bad Pe FOR TYPOUT. 





SEQ 0104 








ew 
~ + 
's. 
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BYNAAY TO OFTAL CASCII AND TYPE - 


re ee ee 


. WAS PRINTED 


SEQ 0105 





8 7 177746 33: R 1$ 
ATTH oN8082 : ae sRETURN TO PROGRAM AND TRY TO RECOVER 
SBIT PHYS S TYPE 
i: efuTINE Ne a5 Tye YSICAL NE (22 BITS). 
V p 3 3PUSH RO 
$10146 MOY ORL ‘g + OUSH RI ON STARK 
46 MOV Re. p BUSH Re ON STACK 
V R3,- . 3 ey R3 ON STACK 
000012 ) V lets , R2 sGE ASE ADDRES 
CLR : WORK of AMEX RE GISTER 
} 155026 ST MMAVA ; HECK HEM HGH G 1 AVA LABLE 
737 000001 177572 arf #1, a#SRO  ;CHECK IF MEM MGMT NABLED 
424 BEG 18 :BRANCH ir i MEM Age NOT ENABLED 
1 V 2. Ri sCOPY VIRTUAL A 
ot ROL Ri ;SHUFFLE BITS et 14,15 INTO 1,2,3 
o 
Ri 
7776 ; 1777 Ri sCLR ALL EXCEPT BI7S 1,2,3 
7 t 14388 {PARO’ Ri Se TO PROPRIATE phe 
1 V Gt), ‘at :GET CONTENTS OF PA 
000006 V RO Ha COUNTER 
$01 4$: ASL at “SHIFT P 
R R sSAVE OVERFLOW BITS 
003 RO 4$ ; COUNT re HIF 
160000 #160000, R2 : SAV 8 NK BIT 
Ri. R2 E PHYSI AL ADDRESS 
R sMAKE SURE : Y ISN’T LOST! 
a 1$: [ Re sFIRST DIGIT TO R3 
R sRESTORE R2 FOR BITS 14-0 
soe003 Bc SIMRO 
;« THE NEXT TWO INSTR TIONS PROVIDE AN IN EREACE TO THE $TYPOS ROUTINE 
;« WIHTOUT USING A “TRAP” INSTR AS CALLED OR BY #*SYSMAC es 
023602 106746 MFPS 638) -PUT THE PRO SSOR STATUS THE STACK 
105066 000001 CLRB  =-«1¢SP sHIGH i ae Toe ED TO INSURE KERNEL MODE 
02 i 004767 177364 JSR pC, $TYPOS 0,1 THE any 
soo BEI ox0k BE bcs) HEDGE READING Ses 
-: TYPE ROR 3S BITS 4-0 
& ss tee in taidieemieeea a AN IN FACE TO THE $ 
:* WIHTOUT USING A “TRAP” INSTRUCTION AS CALLED FOR BY #«S 
023620 106746 PS (SP THE PROCESSOR STATU 
2 105066 000001 CLRB  =- SP :HIGH BYTE CLEARED TO IN 


SON PSW_RETURN. 
023626 004767 177346 JSR PC, $TYPOS ;GO TD. THE SUBROUTINE 





- —_ — a — re eee ee eee ee ee 


C9 
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eS 
Net act xt ct xt et xt 4 
ne 
eee 
RRRRR 
So S2R3e2 


3 


S833 


015 012 
124 061 
we 
8 os 1 115 
+6 131 
0 $! +4 10 
0 i 1 é ioe 
Seg ie 
70 101 126 
023706 +3 114 
tH ‘ e 114 
71 00 
3671 0237 015 O12 
7 062 040 
7 ii} 124 
726 101 104 
023731 040 191 
0237 10 111 
023737 et O12 
3672 023742 «OO 012 
2/45 105 4? 
mo 
useing ih 
oe 
2 15 115 105 
er a Cr 
Soy 1 iB 
3674 4008 af O12 
024010 122 117 
4078 040 000 
3675 5 040 124 
4020 040 000 
3676 0240 015 Ole 
0240 116 123 
- rt 188 106 
10 111 
024036 116 124 
024041 115 105 





= - 


Sao 


rir Orr rPOrr Orr 
KH OSC SEN Parr 
~~ UW Fr VIOrO COO-vV! 


— 


—— 


SEQ 0106 


BYTE 5 >; TYPE 5 DIGIT( ) 
"BYTE : : TYPE : ADING ROS 
V SP)+,R3 as STACK Wt Q 
MOV SP)+,R2 3 STACK INTO R2 
MOV SP)+-R1 :;POP STACK INTO Ri 
MOV SP)+_RO : :POP STA K INTO RO 
MOV SP)+. (SP) | ;ADJUST THE STACK TO CLEAR DATA 
TS RETURN 


.SBTTL STANDARD PROGRAM MESSAGES 
ss KRESKACAACAAAEALEAAALAKELESAKACKACEEAAREASALALSEALCASERLALAAALEKAKELAS 
;VARIOUS MESSAGE PRINTOUTS USED THRUOUT 
-THE PROGRAM 
© > RAEKESRAKEAKEAARALAEALASESLACAKACARKEALEKALKRADARAARARSERALEASAEEAKALAAALKAKE 
MMAMES: .ASCIZ <i5><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE! 


AVAL22: .ASCIZ <15><12>‘22 BIT ADR AVAIL'<15><12> 


MEMMES: .ASCIZ <15><12>'MEMORY MAP:’ 
MTMAP: .ASCIZ <15><i12>‘PARITY MEMORY MAP:' 


FROM:  .ASCIZ <15><12>'FROM | 


TO: Ame 6 
INSUFF: .ASCIZ <15><12>' INSUFFICIENT MEMORY...FIRST 16K NOT ALL THERE!’ 
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<15><12>'NO PARITY REGISTERS FOUND’ 

<15><12>'RESTARTING AFTER A POWER FAILURE’ <15><12> 
<15><12>'NO PARITY ERRORS FOUND ON MEMORY SCAN'<15><12> 
¢15><12>'PROGRAM NOW RESIDES BACK AT 0 70 8K’ 
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<15><12>'HIT CONTINUE FOR NORMAL RUNNING‘ <15><12> 
<15><12><12><12>' INPUT ALL PARAMETERS IN OCTAL.’ 
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<15><12>' 2ADDRESS IN UNMAPPED BANK?’ 
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<15><12>'SELECT CONSTANT: ' 
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<15><12>'UNEXPECTED MEMORY PARITY ERROR’ 
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<15><12>'PROGRAM RELOCATED T0 ' 
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PRELOC: 


oreo) 
NoOwOood 
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<15><12>'MORE THAN ONE PARITY ERROR FOUND. ' 


.ASCIZ 


MTOE: 


MMNOOMAdtioir 
HAOnTOOMUCH-1 
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<15><12>‘SCANNING MEMORY FOR BAD PARITY.’ 
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SEQ 0110 | 
2 3 040 
185 ifs 988 
102 108 
ge 
ou 
3694 O19 te 120 PEWNC: .ASCIZ <15><12>‘PARITY ERROR MILL NOT CLEAR. ' 
im 0 ff 040 
{ ee 
50 ~—Ss«O MO 
127 tif 114 
4 116 
tifa S08 
19 133 (86 
3695 01 012 116 NOMTST: .ASCIZ <15><12>'NO MEMORY TESTED. ' 
i 040 115 
15 SA? 
ae 
134 = 10 123 
124 105 104 
3696 01 012 123 SKPMES: .ASCIZ <15><12>'SKIPPING TEST #! 
1 1ii 120 
i> 6—lotiht‘édTSGW 
oR 
483 sas «G0 
377, —s«377,—~Sfs(i«sS@FILL2: .ASCIZ <377><377> 


sp RRAKAKAREREAEERRAEEAREERERAE ARERR AE EKA AREER EEK RAKE EKAEAKKKEKKE 


.* MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 


97 

69 

g 3 -SBTTL ERROR REPORTING MESSAGES AND TABLES. 

! odd ok kk kk bk ik ek Jedd a dodo io okie ik bk ik & 


kk AK EAE 

8 26 120 101 122 OMI: .ASCIZ ‘PARITY REGISTER DATA ERROR. ' 
1il 124 131 
0 69 040 122 105 
0 107 +8 123 
8 9° ve 10 122 
i 40 104 101 
7 124 101 040 
77 05 122 bee 
4 i! 122 056 

3704 06 101 104 104 OMe: -ASCIZ ‘ADDRESS TEST ERROR(TST1-5).' 
14 1 105 123 
1 040 124 
sf 1 123 124 
040 105 122 
, 2 117 122 
Q 124 123 
4 061 055 
-) O51 056 

1 000 
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REPORTING MESSAGES AND TABLES. SEQ O111 
3705 02524 103 117 116 DM4: -ASCIZ ‘CONSTANT DATA ERROR(TST6-10). ’ 
0 24 1¢3 124 01 
sb GG 
526 1 1 117 
6 364 1 46 124 
952593 © 088—Ss1St«t 
02527 034 O86 000 
3706 0 12 117 124 DMS: -ASCIZ ‘ROTATING BIT ERROR(TST11-12). ' 
0 03 1 l 124 111 
6 Cte 
yee 
485 124 123 
i St oe 
091 See $85 3 
3707 Mt 117 123 DM6: .ASCIZ ‘MOS REFRESH TEST ERROR (TST 24-25). 
4} 40 122 105 
47 488s«sTOSC*« 
0 22 124 tos 123 
‘ 124 040 105 
60 122 122 11? 
1 040 050 
66 i 4 123 124 
i 0 062 064 
7 055 062 065 
0 77 031 056 000 
3708 10 106 ~=—-_:101 124 OM?: -ASCIZ ‘FATAL ERROR HALT’ 
0 / 101 444 040 
ee ar 
a i 
3709 0 ! : 1i3 101 122 DM10: .ASCIZ “MARCHING 1'S AND 0’S ERROR(TST 23).” 
1 140 tii 
Satu gat 
025437 040 104 1°6 
0 ae 104 040 060 
4 047 123 040 
0 9 105 122 122 
0 7 122 050 
; 4 123 124 
b 40 062 063 
031 056 000 
3710 7 120 101 : : DMii: .ASCIZ ‘PARITY MEMORY ADDRESS ERRGR(TST13).' 
7 040 115 105 
00 i 117 122 
131 040 101 
06 104 104 122 
il 105 123 123 





i TT 








‘PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST13).' 


‘WRONG PARITY DETECTED, BUT NO REGISTER SHOWS ERROR FLAG.’ 


"DATIO WITH WRONG PARITY DIDN'T TRAP(TST13).” 
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=) AMAOONANAHO HO AHAHONHAHOO Hat HH AHO HSH HHH HO HAHAH HO HSH HAHO MS 
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SEQ 0113 


ABLES. 


R REPORTING ME 


JY 
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‘MORE THAN ONE REGISTER INDICATED PARITY ERROR. ' 
"DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST13). ” 
NINSTRUCTION EXECUTION ERROR(TST15-22). 


‘RANDOM DATA ERROR(TST14).' 
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SEQ 0114 
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HATA COLUMN HEADINGS 
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‘vV/PC = P/ PC MA S/B WAS’ 


i, -y “g- yx 4 7” eee 
RMAT TABLE FOR ERROR PRINTOUT. 


;* DATA F 

bF 1: 

OF 2: -BYTE 

OF3: .BYTE 

OFi4: .BYTE 

DF21:  .BYTE 

DF30:  .BYTE 
-EVEN 

. = 32000 
.END 
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LOADERS ARE SAVE HERE TO END OF 8K 
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ymbol table 

-EiGHT 00 + .MPPAT 003030 .PBTRP 002026 -RESRV 0020 
.ERRT 8 0 -MPRX 002024 -PESRV 002032 -SAVTS 002010 
“HENNA -MPRO 0029 .PMEMA 002014 STACK 002 
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